(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 148849, 3577] NotebookOptionsPosition[ 144673, 3443] NotebookOutlinePosition[ 145152, 3461] CellTagsIndexPosition[ 145109, 3458] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Sine and Cosine Rule", "Title", CellChangeTimes->{{3.543811983798111*^9, 3.543811987824342*^9}}], Cell[CellGroupData[{ Cell["Sine Rule", "Section", CellChangeTimes->{{3.543811999839029*^9, 3.5438120022141647`*^9}}], Cell["For a given triangle ABC:", "Text", CellChangeTimes->{{3.543812068067931*^9, 3.543812087049017*^9}, { 3.5438121198928957`*^9, 3.5438121211679688`*^9}, {3.54381215930515*^9, 3.5438121680026474`*^9}}, FontFamily->"Times New Roman", FontSize->18], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Thick", ",", "White", ",", RowBox[{"EdgeForm", "[", RowBox[{"Thickness", "[", "0.01", "]"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}], "]"}], ",", "Blue", ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"3", ",", "4.2"}], "}"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"5.2", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"2.5", ",", RowBox[{"-", "0.2"}]}], "}"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"4.2", ",", "2.1"}], "}"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"1.4", ",", "2.3"}], "}"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}], ",", "\"\< \>\"", ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", RowBox[{"FontSize", "\[Rule]", " ", "30"}]}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.5438122626680617`*^9, 3.5438122647221794`*^9}, { 3.543812382655925*^9, 3.5438123838629937`*^9}, {3.54381241824196*^9, 3.5438124993205976`*^9}, {3.5438128826185207`*^9, 3.543812931707329*^9}, { 3.5438131419933567`*^9, 3.543813168192855*^9}, {3.543813308553883*^9, 3.5438135867197933`*^9}, {3.543813625237996*^9, 3.543813676897951*^9}, { 3.5438137679621596`*^9, 3.543813779796837*^9}, {3.5438139536187787`*^9, 3.543814113898946*^9}, {3.54381414683183*^9, 3.543814156364375*^9}}], Cell[BoxData[ FormBox[ TemplateBox[{GraphicsBox[{ GrayLevel[1], Thickness[Large], EdgeForm[ Thickness[0.01]], PolygonBox[{{0, 0}, {5, 0}, {3, 4}}], { RGBColor[0, 0, 1], StyleBox[ InsetBox["\"A\"", {3, 4.2}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox["\"B\"", {-0.3, 0}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox["\"C\"", {5.2, 0}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox["\"a\"", {2.5, -0.2}], StripOnInput -> False, FontSize -> 16], StyleBox[ InsetBox["\"b\"", {4.2, 2.1}], StripOnInput -> False, FontSize -> 16], StyleBox[ InsetBox["\"c\"", {1.4, 2.3}], StripOnInput -> False, FontSize -> 16]}}, ImageSize -> 300],"\" \"",StyleBox[ "\"Sine Rule: \\!\\(\\*FractionBox[\\(a\\), \\(sin\\\\ A\\)]\\) = \ \\!\\(\\*FractionBox[\\(b\\), \\(sin\\\\ B\\)]\\) = \\!\\(\\*FractionBox[\\(c\ \\), \\(sin\\\\ C\\)]\\)\"", StripOnInput -> False, FontSize -> 30]}, "Row", DisplayFunction->( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], TraditionalForm]], "Output", CellChangeTimes->{{3.543812884053603*^9, 3.5438129105361176`*^9}, { 3.543813159525359*^9, 3.543813168919896*^9}, 3.543813337816557*^9, { 3.543813368697323*^9, 3.5438133877764144`*^9}, {3.5438134312399006`*^9, 3.543813451304048*^9}, 3.543813494329509*^9, 3.5438135486956186`*^9, { 3.543813630603303*^9, 3.543813677635993*^9}, {3.5438140156593275`*^9, 3.5438140767048187`*^9}, 3.5438141150740137`*^9, 3.5438141576124463`*^9}] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Section", CellChangeTimes->{{3.5438271641293764`*^9, 3.5438271650394287`*^9}}], Cell[BoxData[ FormBox[ TemplateBox[{RowBox[{"a", ".", GraphicsBox[{{ GrayLevel[1], Thickness[Large], EdgeForm[ Thickness[0.01]], PolygonBox[{{3, 2}, {6, 4}, {1, 7}}], { RGBColor[0, 0, 1], StyleBox[ InsetBox["60", {3.2314330542871494`, 2.6153242677920776`}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox[ "5.800000000000001`", {4.184518828467324, 5.523064853558415}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox["65", {5.431276150546551, 3.930805439324754}], StripOnInput -> False, FontSize -> 20]}}, InsetBox[ StyleBox[ Cell[ TextData[ StyleBox[ "m", FontFamily -> "Times New Roman", FontSlant -> "Italic", FontColor -> RGBColor[0., 0., 1.]]], GeneratedCell -> False, CellAutoOverwrite -> False, CellBaseline -> Baseline, TextAlignment -> Left], FontSize -> 22, Background -> GrayLevel[1.]], {1.4871861924647591`, 4.017309623411661}, { Left, Baseline}, Alignment -> {Left, Top}]}, ImagePadding -> {{0., 6.122449}, {1., 0.}}, ImageSize -> 250, PlotRange -> {{0.8875, 6.5125}, {1.892, 7.108}}, PlotRangePadding -> Automatic], " "}],RowBox[{" ", RowBox[{"b", ".", GraphicsBox[{{ GrayLevel[1], Thickness[Large], EdgeForm[ Thickness[0.01]], PolygonBox[{{2, 2}, {10, 1}, {3, 8}}], { RGBColor[0, 0, 1], StyleBox[ InsetBox["8.1`", {6, 1.}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox["38", {8.60606694545657, 1.6099372385447628`}], StripOnInput -> False, FontSize -> 20]}}, InsetBox[ StyleBox[ Cell[ TextData[ StyleBox["n", FontSlant -> "Italic"]], GeneratedCell -> False, CellAutoOverwrite -> False, CellBaseline -> Baseline, TextAlignment -> Left], TextAlignment -> Center, FontSize -> 20, FontColor -> RGBColor[0, 0, 1], Background -> GrayLevel[1.]], { 6.273953974895397, 5.261828451882842}, {Left, Baseline}, Alignment -> {Left, Top}], { RGBColor[0, 0, 1], Thickness[Large], EdgeForm[ Thickness[0.01]], StyleBox[ InsetBox["54", {3.367782426907339, 6.6610962341835185`}], StripOnInput -> False, FontSize -> 20]}}, ImagePadding -> {{0., 6.122449}, {7.317551, 0.}}, ImageSize -> 250, PlotRange -> {{1.825, 10.575000000000001`}, {0.832, 8.168}}, PlotRangePadding -> Automatic]}]}],RowBox[{" ", RowBox[{"c", ".", GraphicsBox[{{ GrayLevel[1], Thickness[Large], EdgeForm[ Thickness[0.01]], PolygonBox[{{2, 3}, {6, 3}, {8, 9}}], { RGBColor[0, 0, 1], StyleBox[ InsetBox["8.5`", {4.5, 6}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox["6.3", {7.1719665271692, 4.851882845092211}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox["110", {5.673082287649072, 3.382705718302603}], StripOnInput -> False, FontSize -> 20]}}, InsetBox[ StyleBox[ Cell[ TextData[ StyleBox["\[Theta]", FontColor -> RGBColor[0, 0, 1]]], GeneratedCell -> False, CellAutoOverwrite -> False, CellBaseline -> Baseline, TextAlignment -> Left], FontSize -> 22, Background -> GrayLevel[1.]], {2.857461645533421, 3.1687252440473657`}, { Left, Baseline}, Alignment -> {Left, Top}]}, ImagePadding -> {{5.122449, 1.}, {7.317551, 0.}}, ImageSize -> 250, PlotRange -> {{1.4666666666666668`, 8.133333333333333}, {2.872, 9.128}}, PlotRangePadding -> Automatic]}]}]}, "Row", DisplayFunction->( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], TraditionalForm]], "Input", CellChangeTimes->{{3.5438268232798815`*^9, 3.543826828383173*^9}, { 3.5438268724886956`*^9, 3.5438270161919155`*^9}, {3.543827086259923*^9, 3.543827099341671*^9}, {3.543860999065873*^9, 3.5438610063224216`*^9}, { 3.5438626678152294`*^9, 3.543862700557229*^9}, {3.543862740167229*^9, 3.5438627734162292`*^9}, {3.5438628881292295`*^9, 3.5438629527372293`*^9}, { 3.5438630515792294`*^9, 3.543863051642229*^9}}], Cell[TextData[Cell[BoxData[ FormBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"a", ".", " ", FractionBox["a", RowBox[{"sin", " ", "A"}]]}], "=", FractionBox["b", RowBox[{"sin", " ", "B"}]]}]}, { RowBox[{ FractionBox["m", RowBox[{"sin", " ", "65"}]], "=", FractionBox["5.8", RowBox[{"sin", " ", "60"}]]}]}, { RowBox[{"m", "=", RowBox[{ FractionBox["5.8", RowBox[{"sin", " ", "60"}]], "\[Times]", "sin", " ", "65"}]}]}, { RowBox[{"=", "6.1"}]} }, GridBoxAlignment->{"Columns" -> {{"="}}}]} }, GridBoxItemSize->{"Columns" -> {{ Scaled[0.96]}}}], TraditionalForm]]]], "Text", CellChangeTimes->{{3.54386101817805*^9, 3.543861113374007*^9}, { 3.5438614425392294`*^9, 3.5438614426392293`*^9}}], Cell[TextData[Cell[BoxData[ FormBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"b", ".", " ", "N"}], "=", RowBox[{"180", "-", "54", "-", "38"}]}]}, { RowBox[{"=", RowBox[{"88", "\[Degree]"}]}]}, { RowBox[{ FractionBox["a", RowBox[{"sin", " ", "A"}]], "=", FractionBox["b", RowBox[{"sin", " ", "B"}]]}]}, { RowBox[{ FractionBox["n", RowBox[{"sin", " ", "88"}]], "=", FractionBox["8.1", RowBox[{"sin", " ", "54"}]]}]}, { RowBox[{"n", "=", RowBox[{ FractionBox["8.1", RowBox[{"sin", " ", "54"}]], "\[Times]", "sin", " ", "88"}]}]}, { RowBox[{"=", "10"}]} }, GridBoxAlignment->{"Columns" -> {{"="}}}]} }, GridBoxItemSize->{"Columns" -> {{ Scaled[0.96]}}}], TraditionalForm]]]], "Text", CellChangeTimes->{{3.543861125127656*^9, 3.543861233900299*^9}, { 3.5438614153372293`*^9, 3.543861417066229*^9}}], Cell[TextData[Cell[BoxData[ FormBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"c", ".", " ", FractionBox[ RowBox[{"sin", " ", "A"}], "a"]}], "=", FractionBox[ RowBox[{"sin", " ", "B"}], "b"]}]}, { RowBox[{ FractionBox[ RowBox[{"sin", " ", "\[Theta]"}], "6.3"], "=", FractionBox[ RowBox[{"sin", " ", "110"}], "8.5"]}]}, { RowBox[{ RowBox[{"sin", " ", "\[Theta]"}], "=", RowBox[{ FractionBox[ RowBox[{"sin", " ", "110"}], "8.5"], "\[Times]", "6.3"}]}]}, { RowBox[{"=", "0.696"}]}, { RowBox[{"\[Theta]", "=", RowBox[{ SuperscriptBox["sin", RowBox[{"-", "1"}]], "(", "0.696", ")"}]}]}, { RowBox[{"=", RowBox[{"44.1", "\[Degree]"}]}]} }, GridBoxAlignment->{"Columns" -> {{"="}}}]} }, GridBoxItemSize->{"Columns" -> {{ Scaled[0.96]}}}], TraditionalForm]]]], "Text", CellChangeTimes->{{3.5438612486688223`*^9, 3.543861325573131*^9}, { 3.543861373755229*^9, 3.543861377990229*^9}, {3.5438614530672293`*^9, 3.5438614761062293`*^9}, {3.5438616262712293`*^9, 3.543861671918229*^9}, { 3.5438617050462294`*^9, 3.5438617074952292`*^9}, {3.5438627818742294`*^9, 3.543862836028229*^9}, {3.5438629109882293`*^9, 3.543862914063229*^9}, { 3.543862978417229*^9, 3.543863106458229*^9}, {3.543957839146525*^9, 3.543957839325535*^9}}], Cell[TextData[{ "You can utilise ", StyleBox["Mathematica\[CloseCurlyQuote]s ", FontSlant->"Italic"], "Solve function to simplify the process: ", StyleBox["Example ", FontVariations->{"Underline"->True}], StyleBox["a", FontSlant->"Italic", FontVariations->{"Underline"->True}] }], "Text", CellChangeTimes->{{3.5439578605477486`*^9, 3.543957910532608*^9}, 3.543957988814085*^9, {3.543958116492388*^9, 3.5439581354304714`*^9}}], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ FractionBox["m", RowBox[{"Sin", "[", RowBox[{"65", "\[Degree]"}], "]"}]], "\[Equal]", FractionBox["5.8", RowBox[{"Sin", "[", RowBox[{"60", "\[Degree]"}], "]"}]]}], ",", "m"}], "]"}]], "Code", CellChangeTimes->{{3.543957914660844*^9, 3.543957958227336*^9}}], Cell[CellGroupData[{ Cell["The Ambiguous Case", "Subsection", CellChangeTimes->{{3.543863663055229*^9, 3.543863666213229*^9}, 3.6073021954367085`*^9}], Cell["\<\ The information given can actually lead to a situation called the ambiguous \ case, where there is more than one possible solution. If we weren\ \[CloseCurlyQuote]t given a diagram showing the relative shape of the \ triangle then the same information could give us two different triangles. \ Consider:\ \>", "Text", CellChangeTimes->{{3.543861742821229*^9, 3.5438617905412292`*^9}, { 3.5438624487162294`*^9, 3.5438625260932293`*^9}, {3.543863129767229*^9, 3.5438631435042295`*^9}, {3.543863659497229*^9, 3.543863660382229*^9}, 3.6073021954387093`*^9}], Cell["\<\ Triangle ABC where A = 45\[Degree], a = 6.3 and b = 8.5 could be drawn in two \ ways.\ \>", "Text", CellChangeTimes->{{3.543863689831229*^9, 3.5438637719092293`*^9}, { 3.543863846739229*^9, 3.5438638492582293`*^9}, 3.6073021954387093`*^9}], Cell[BoxData[ RowBox[{ GraphicsBox[{ {GrayLevel[1], Thickness[Large], EdgeForm[Thickness[0.01]], PolygonBox[{{2, 3}, {6, 3}, {8, 9}}], {RGBColor[0, 0, 1], StyleBox[InsetBox["8.5`", {4.5, 6}], StripOnInput->False, FontSize->20], StyleBox[InsetBox["6.300000000000001`", {7.5, 6}], StripOnInput->False, FontSize->20], StyleBox[InsetBox["45", {2.93947001405909, 3.328033472830799}], StripOnInput->False, FontSize->20]}}, InsetBox[ StyleBox[Cell[TextData[StyleBox["\[Theta]", FontColor->RGBColor[0, 0, 1]]], GeneratedCell->False, CellAutoOverwrite->False, CellBaseline->Baseline, TextAlignment->Left], FontSize->22, Background->GrayLevel[1.]], {5.641182145953328, 3.1675962366657267`}, { Left, Baseline}, Alignment->{Left, Top}], {RGBColor[0, 0, 1], Thickness[Large], EdgeForm[Thickness[0.01]], StyleBox[InsetBox["x", {4.405777818498179, 3.287659982829128}], StripOnInput->False, FontSize->20]}}, ImagePadding->{{5.122449, 1.}, {7.317551, 0.}}, ImageSize->{227., Automatic}, PlotRange->{{1.4666666666666668`, 8.133333333333333}, {2.872, 9.128}}, PlotRangePadding->Automatic], " ", "or", " ", GraphicsBox[{InsetBox[ GraphicsBox[{ {GrayLevel[1], Thickness[Large], EdgeForm[Thickness[0.01]], PolygonBox[{{2, 3}, {6, 3}, {8, 9}}], {RGBColor[0, 0, 1], StyleBox[InsetBox["8.5`", {4.5, 6}], StripOnInput->False, FontSize->20], StyleBox[InsetBox["45", {2.9394700140590904`, 3.3006973500949}], StripOnInput->False, FontSize->20]}}, InsetBox["", {5.399721059972103, 3.4694225941422587`}, {Left, Baseline}, Alignment->{Left, Top}]}, ImagePadding->{{5.122449, 1.}, {7.317551, 0.}}, ImageSize->250, PlotRange->{{1.4666666666666668`, 8.133333333333333}, {2.872, 9.128}}, PlotRangePadding->Automatic], Scaled[{0.40429635323577995`, 0.5085526315789468}], Center, {1.0894273013903968`, 0.9390350877192983}, {{1., 0.}, {0., 1.}}], {Dashing[{0, Small, Small, Small}], StrokeForm[{GrayLevel[0.], Opacity[ 1.]}], EdgeForm[{GrayLevel[0.], Opacity[1.]}], EdgeForm[None], LineBox[{{1.014254567324914, 0.9502414569624157}, {1.2769533492204705`, 0.08648766319529747}}]}, {Dashing[{0, Small, Small, Small}], StrokeForm[{GrayLevel[0.], Opacity[ 1.]}], EdgeForm[{GrayLevel[0.], Opacity[1.]}], EdgeForm[None], LineBox[{{0.7322396985252722, 0.08691145474167387}, {1.2808165666012878`, 0.08691145474167387}}]}, {RGBColor[0, 0, 1], Thickness[Large], EdgeForm[Thickness[0.01]], StyleBox[ InsetBox["6.300000000000001`", {1.2285037505248102`, 0.4589319595902932}, Automatic, {0.15249542292698723`, 0.13763339060509366`}, {{1., 0.}, { 0., 1.}}], StripOnInput->False, FontSize->20]}, StyleBox[InsetBox[ StyleBox["\[Phi]", FontColor->RGBColor[ 0, 0, 1]], {1.132968811067314, 0.11855527114477327`}, { Left, Baseline}, {0.06709798608787425, 0.16891370665170588`}, {{1., 0.}, {0., 1.}}, Alignment->{Left, Top}], FontSize->24], {RGBColor[0, 0, 1], Thickness[Large], EdgeForm[Thickness[0.01]], StyleBox[InsetBox["y", {0.7499999999999991, 0.04385964912280693}], StripOnInput->False, FontSize->20]}}, ContentSelectable->True, ImagePadding->{{0., 0.}, {0., 0.}}, ImageSize->{314., 228.}, PlotRange->{{0., 1.3333333333333335`}, {0., 1.}}, PlotRangePadding->Automatic]}]], "Input", CellChangeTimes->{ 3.543861810213229*^9, {3.543861845571229*^9, 3.543862028866229*^9}, { 3.543862223095229*^9, 3.5438622579942293`*^9}, {3.543862324747229*^9, 3.5438624376782293`*^9}, {3.543862711213229*^9, 3.5438627328272295`*^9}, { 3.5438631668702292`*^9, 3.543863184963229*^9}, {3.5438632328552294`*^9, 3.5438632667542295`*^9}, {3.543863323901229*^9, 3.5438633326922293`*^9}, { 3.543863778923229*^9, 3.543863799773229*^9}, 3.6073021954477158`*^9}, TextAlignment->Center], Cell["\<\ The bold lines show one triangle, the dashed lines show the other option that \ still uses the same values. \ \>", "Text", CellChangeTimes->{{3.543862533128229*^9, 3.543862580033229*^9}, 3.5438631983622293`*^9, {3.543863859048229*^9, 3.543863869417229*^9}, 3.6073021954487166`*^9}], Cell[TextData[{ "The difference between the two angles is ", Cell[BoxData[ FormBox[ RowBox[{"\[Phi]", " ", "=", " ", RowBox[{"180", " ", "-", " ", "\[Theta]"}]}], TraditionalForm]]] }], "Text", CellChangeTimes->{{3.543863295170229*^9, 3.543863310970229*^9}, { 3.5438633434402294`*^9, 3.543863354232229*^9}, 3.543863630420229*^9, 3.6073021954497175`*^9}], Cell[" ", "Text", Editable->False, Selectable->False, CellFrame->{{0, 0}, {0, 2}}, ShowCellBracket->False, CellMargins->{{0, 0}, {1, 1}}, CellElementSpacings->{"CellMinHeight"->1}, CellFrameMargins->0, CellFrameColor->RGBColor[0, 0, 1], CellSize->{Inherited, 4}, CellChangeTimes->{3.6073021954497175`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Cosine Rule", "Section", CellChangeTimes->{{3.543812058174365*^9, 3.54381206000447*^9}}], Cell["For a given triangle ABC:", "Text", CellChangeTimes->{{3.543812068067931*^9, 3.543812087049017*^9}, { 3.5438121198928957`*^9, 3.5438121211679688`*^9}, {3.54381215930515*^9, 3.5438121680026474`*^9}}, FontFamily->"Times New Roman", FontSize->18], Cell[BoxData[ FormBox[ StyleBox[ TemplateBox[{GraphicsBox[{ GrayLevel[1], Thickness[Large], EdgeForm[ Thickness[0.01]], PolygonBox[{{0, 0}, {5, 0}, {3, 4}}], { RGBColor[0, 0, 1], StyleBox[ InsetBox["\"A\"", {3, 4.2}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox["\"B\"", {-0.3, 0}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox["\"C\"", {5.2, 0}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox["\"a\"", {2.5, -0.2}], StripOnInput -> False, FontSize -> 16], StyleBox[ InsetBox["\"b\"", {4.2, 2.1}], StripOnInput -> False, FontSize -> 16], StyleBox[ InsetBox["\"c\"", {1.4, 2.3}], StripOnInput -> False, FontSize -> 16]}}, ImageSize -> 300]," ",StyleBox[ TemplateBox[{ RowBox[{"Cosine", " ", RowBox[{"Rule", ":", " "}]}], RowBox[{ SuperscriptBox["c", "2"], "\[LongEqual]", RowBox[{ SuperscriptBox["a", "2"], "+", SuperscriptBox["b", "2"], "-", RowBox[{"2", " ", "a", " ", "b", " ", RowBox[{"cos", "(", "C", ")"}]}]}]}]}, "Row", DisplayFunction -> (RowBox[{#, "\[InvisibleSpace]", #2}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], StripOnInput -> False, FontSize -> 30]}, "Row", DisplayFunction->( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], FontWeight->"Plain"], TraditionalForm]], "Input", CellChangeTimes->{{3.5438668545187035`*^9, 3.543866873607703*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Section", CellChangeTimes->{{3.5438271641293764`*^9, 3.5438271650394287`*^9}}], Cell[BoxData[ FormBox[ TemplateBox[{RowBox[{"a", ".", GraphicsBox[{{ GrayLevel[1], Thickness[Large], EdgeForm[ Thickness[0.01]], PolygonBox[{{2, 2}, {10, 1}, {3, 8}}], { RGBColor[0, 0, 1], StyleBox[ InsetBox["8.1`", {6, 1.}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox["38", {8.60606694545657, 1.6099372385447628`}], StripOnInput -> False, FontSize -> 20]}}, InsetBox[ StyleBox[ Cell[ TextData[ StyleBox["y", FontSlant -> "Italic"]], GeneratedCell -> False, CellAutoOverwrite -> False, CellBaseline -> Baseline, TextAlignment -> Left], TextAlignment -> Center, FontSize -> 20, FontColor -> RGBColor[0, 0, 1], Background -> GrayLevel[1.]], { 2.793723849081151, 4.616012552247215}, {Left, Baseline}, { 0.35878661090868513`, 0.896966527271713}, {{1., 0.}, {0., 1.}}, Alignment -> {Left, Top}], { RGBColor[0, 0, 1], Thickness[Large], EdgeForm[ Thickness[0.01]], StyleBox[ InsetBox["10.4", {6.776255230539848, 5.118313807276176}], StripOnInput -> False, FontSize -> 20]}}, ImagePadding -> {{0., 6.122449}, {7.317551, 0.}}, ImageSize -> 250, PlotRange -> {{1.825, 10.575000000000001`}, {0.832, 8.168}}, PlotRangePadding -> Automatic], " "}],RowBox[{" ", RowBox[{"b", ".", GraphicsBox[{{ GrayLevel[1], Thickness[Large], EdgeForm[ Thickness[0.01]], PolygonBox[{{3, 2}, {6, 4}, {1, 7}}], { RGBColor[0, 0, 1], StyleBox[ InsetBox["x", {4.845972803376232, 2.707583682025737}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox["6", {4.184518828467324, 5.523064853558415}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox["65", {5.431276150546551, 3.930805439324754}], StripOnInput -> False, FontSize -> 20]}}, StyleBox[ InsetBox[ StyleBox[ Cell[ TextData[ StyleBox[ "5.8", FontFamily -> "Times New Roman", FontColor -> RGBColor[0., 0., 1.]]], GeneratedCell -> False, CellAutoOverwrite -> False, CellBaseline -> Baseline, TextAlignment -> Left], Background -> GrayLevel[1.]], { 1.3949267782311, 3.832790794944337}, {Left, Baseline}, Alignment -> {Left, Top}], FontSize -> 20]}, ImagePadding -> {{0., 6.122449}, {1., 0.}}, ImageSize -> 250, PlotRange -> {{0.8875, 6.5125}, {1.892, 7.108}}, PlotRangePadding -> Automatic]}]}],RowBox[{" ", RowBox[{"c", ".", GraphicsBox[{{ GrayLevel[1], Thickness[Large], EdgeForm[ Thickness[0.01]], PolygonBox[{{2, 3}, {6, 3}, {8, 9}}], { RGBColor[0, 0, 1], StyleBox[ InsetBox["8.5`", {4.5, 6}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox["6.3", {7.1719665271692, 4.851882845092211}], StripOnInput -> False, FontSize -> 20], StyleBox[ InsetBox["4", {4.552301255477179, 3.3006973500949037`}], StripOnInput -> False, FontSize -> 20]}}, InsetBox[ StyleBox[ Cell[ TextData[ StyleBox["\[Theta]", FontColor -> RGBColor[0, 0, 1]]], GeneratedCell -> False, CellAutoOverwrite -> False, CellBaseline -> Baseline, TextAlignment -> Left], FontSize -> 22, Background -> GrayLevel[1.]], {2.857461645533421, 3.1687252440473657`}, { Left, Baseline}, Alignment -> {Left, Top}]}, ImagePadding -> {{5.122449, 1.}, {7.317551, 0.}}, ImageSize -> 250, PlotRange -> {{1.4666666666666668`, 8.133333333333333}, {2.872, 9.128}}, PlotRangePadding -> Automatic]}]}]}, "Row", DisplayFunction->( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], TraditionalForm]], "Input", CellChangeTimes->{{3.5438268232798815`*^9, 3.543826828383173*^9}, { 3.5438268724886956`*^9, 3.5438270161919155`*^9}, {3.543827086259923*^9, 3.543827099341671*^9}, {3.543860999065873*^9, 3.5438610063224216`*^9}, { 3.5438626678152294`*^9, 3.543862700557229*^9}, {3.543862740167229*^9, 3.5438627734162292`*^9}, {3.5438628881292295`*^9, 3.5438629527372293`*^9}, { 3.5438630515792294`*^9, 3.543863051642229*^9}, {3.543867053166703*^9, 3.5438671309027033`*^9}, {3.543867167200703*^9, 3.543867210687703*^9}, { 3.5439559550487604`*^9, 3.5439559697726026`*^9}}], Cell[TextData[Cell[BoxData[ FormBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{ StyleBox["a", FontWeight->"Bold"], StyleBox[".", FontWeight->"Bold"], " ", SuperscriptBox["c", "2"]}], "=", RowBox[{ SuperscriptBox["a", "2"], "+", SuperscriptBox["b", "2"], "-", RowBox[{"2", "a", " ", "b", " ", RowBox[{"cos", "(", "C", ")"}]}]}]}]}, { RowBox[{ SuperscriptBox["y", "2"], "=", RowBox[{ SuperscriptBox["10.4", "2"], "+", SuperscriptBox["8.1", "2"], "-", RowBox[{"2", "\[Times]", "10.4", "\[Times]", "8.1", "\[Times]", RowBox[{"cos", "(", "38", ")"}]}]}]}]}, { RowBox[{"=", "41.0059"}]}, { RowBox[{ RowBox[{"\[Therefore]", "y"}], "=", SqrtBox["41.0059"]}]}, { RowBox[{"=", "6.4"}]} }, GridBoxAlignment->{"Columns" -> {{"="}}}]} }, GridBoxItemSize->{"Columns" -> {{ Scaled[0.96]}}}], TraditionalForm]]]], "Text", CellChangeTimes->{{3.5439555005877666`*^9, 3.5439555575460243`*^9}, { 3.54395562477287*^9, 3.543955692487743*^9}, {3.5439576874168463`*^9, 3.54395768922995*^9}}], Cell[TextData[Cell[BoxData[ FormBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{ StyleBox["b", FontWeight->"Bold"], StyleBox[".", FontWeight->"Bold"], " ", SuperscriptBox["c", "2"]}], "=", RowBox[{ SuperscriptBox["a", "2"], "+", SuperscriptBox["b", "2"], "-", RowBox[{"2", "a", " ", "b", " ", RowBox[{"cos", "(", "C", ")"}]}]}]}]}, { RowBox[{ SuperscriptBox["5.8", "2"], "=", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["6", "2"], "-", RowBox[{"2", "\[Times]", "x", "\[Times]", "6", "\[Times]", RowBox[{"cos", "(", "65", ")"}]}]}]}]}, { RowBox[{"33.64", "=", RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"5.07142", "x"}], "+", "36"}]}]}, { RowBox[{"0", "=", RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"5.07142", "x"}], "+", "2.36"}]}]}, { RowBox[{ RowBox[{"\[Therefore]", "x"}], "=", RowBox[{"0.518329", " ", "or", " ", "4.55309", " ", RowBox[{"(", RowBox[{"ambiguous", " ", "case"}], ")"}]}]}]} }, GridBoxAlignment->{"Columns" -> {{"="}}}]} }, GridBoxItemSize->{"Columns" -> {{ Scaled[0.96]}}}], TraditionalForm]]]], "Text", CellChangeTimes->{{3.5439555005877666`*^9, 3.5439555575460243`*^9}, { 3.54395562477287*^9, 3.543955764901885*^9}, {3.543956003723544*^9, 3.543956035404357*^9}, {3.54395608791336*^9, 3.543956212243471*^9}, { 3.5439562654125123`*^9, 3.5439562880398064`*^9}, {3.5439563268700275`*^9, 3.5439563333633986`*^9}, {3.543957228471596*^9, 3.5439572583193035`*^9}}], Cell[TextData[{ "\t\t\tFrom the diagram we can see the value we are interested in is ", Cell[BoxData[ FormBox[ RowBox[{"x", "=", "4.6"}], TraditionalForm]]] }], "Text", CellChangeTimes->{{3.543956224779188*^9, 3.5439562578290787`*^9}, { 3.5439577249159913`*^9, 3.543957736331644*^9}}, TextAlignment->Center], Cell[TextData[Cell[BoxData[ FormBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{ StyleBox["c", FontWeight->"Bold"], StyleBox[".", FontWeight->"Bold"], " ", SuperscriptBox["c", "2"]}], "=", RowBox[{ SuperscriptBox["a", "2"], "+", SuperscriptBox["b", "2"], "-", RowBox[{"2", "a", " ", "b", " ", RowBox[{"cos", "(", "C", ")"}]}]}]}]}, { RowBox[{ SuperscriptBox["6.3", "2"], "=", RowBox[{ SuperscriptBox["4", "2"], "+", SuperscriptBox["8.5", "2"], "-", RowBox[{"2", "\[Times]", "4", "\[Times]", "8.5", "\[Times]", RowBox[{"cos", "(", "\[Theta]", ")"}]}]}]}]}, { RowBox[{ RowBox[{"cos", "(", "\[Theta]", ")"}], "=", FractionBox[ RowBox[{ SuperscriptBox["4", "2"], "+", SuperscriptBox["8.5", "2"], "-", SuperscriptBox["6.3", "2"]}], RowBox[{"2", "\[Times]", "4", "\[Times]", "8.5"}]]}]}, { RowBox[{ RowBox[{"cos", "(", "\[Theta]", ")"}], "=", "0.714118"}]}, { RowBox[{ RowBox[{"\[Therefore]", " ", "\[Theta]"}], "=", RowBox[{"44.4", "\[Degree]"}]}]} }, GridBoxAlignment->{"Columns" -> {{"="}}}]} }, GridBoxItemSize->{"Columns" -> {{ Scaled[0.96]}}}], TraditionalForm]]]], "Text", CellChangeTimes->{{3.5439555005877666`*^9, 3.5439555575460243`*^9}, { 3.54395562477287*^9, 3.543955692487743*^9}, {3.5439573061350384`*^9, 3.5439573445332346`*^9}, {3.5439573982423067`*^9, 3.54395743571945*^9}, { 3.5439575516300793`*^9, 3.5439575799136972`*^9}, {3.543957619718974*^9, 3.5439576292185173`*^9}, {3.5439576669726768`*^9, 3.543957676096199*^9}, { 3.5439577934409103`*^9, 3.543957805827619*^9}}], Cell[TextData[{ StyleBox["Mathematica: ", FontSlant->"Italic"], StyleBox["Example ", FontVariations->{"Underline"->True}], StyleBox["b", FontSlant->"Italic", FontVariations->{"Underline"->True}] }], "Text", CellChangeTimes->{{3.543958012525441*^9, 3.543958027819316*^9}, { 3.543958150414328*^9, 3.5439581598248663`*^9}}], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ SuperscriptBox["5.8", "2"], "\[Equal]", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["6", "2"], "-", RowBox[{"2", " ", "x", " ", "6", " ", RowBox[{"Cos", "[", RowBox[{"65", "\[Degree]"}], "]"}]}]}]}], ",", "x"}], "]"}]], "Code", CellChangeTimes->{{3.543958031105504*^9, 3.5439580851375947`*^9}}], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " Reminders" }], "Subsection", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.6073020252759404`*^9, 3.6073020282583246`*^9}}], Cell[CellGroupData[{ Cell["Exact Value", "Subsubsection", CellChangeTimes->{{3.570392554664497*^9, 3.5703925562734966`*^9}}], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " works with exact values, unlike your calculator: (this feature becomes \ very handy in a couple of lesson\[CloseCurlyQuote]s time)" }], "Text", CellChangeTimes->{{3.5703919106794987`*^9, 3.570391926970498*^9}, { 3.6073020992174015`*^9, 3.6073021141718626`*^9}}], Cell[BoxData[ RowBox[{"Sin", "[", RowBox[{"60", " ", "Degree"}], "]"}]], "Input", CellChangeTimes->{{3.5703901114925003`*^9, 3.5703901185275*^9}, { 3.5703915418344984`*^9, 3.5703915421034985`*^9}}], Cell["\<\ We can use the \[Degree] symbol instead of the word: (it\[CloseCurlyQuote]s \ on the Classroom Assistant Palette)\ \>", "Text", CellChangeTimes->{{3.5703918493274984`*^9, 3.5703918814204984`*^9}}], Cell[BoxData[ RowBox[{"Sin", "[", RowBox[{"60", "\[Degree]"}], "]"}]], "Input", CellChangeTimes->{{3.5703915150774984`*^9, 3.5703915349934983`*^9}}], Cell["\<\ When using a variable for the angle put a space between it and the degrees \ symbol:\ \>", "Text", CellChangeTimes->{{3.5703914094854984`*^9, 3.570391422765498*^9}, { 3.5703916911174984`*^9, 3.5703917160754986`*^9}}], Cell[BoxData[ RowBox[{"Cos", "[", RowBox[{"B", " ", "\[Degree]"}], "]"}]], "Input", CellChangeTimes->{{3.5703917547684984`*^9, 3.5703918128554983`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Using ", StyleBox["Mathematica", FontSlant->"Italic"], " for the Sine Rule" }], "Subsubsection", CellChangeTimes->{{3.5703919358354983`*^9, 3.570391937621498*^9}, { 3.60730214085853*^9, 3.607302144370987*^9}}], Cell["\<\ We can use the Solve function to find the missing angle: Be careful! Solve \ uses a double equals.\ \>", "Text", CellChangeTimes->{{3.570391959378498*^9, 3.5703919769014983`*^9}, { 3.5703926513344965`*^9, 3.5703926517874966`*^9}, {3.5703928373904967`*^9, 3.5703928586144967`*^9}}], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ FractionBox["4", RowBox[{"Sin", "[", RowBox[{"A", " ", "\[Degree]"}], "]"}]], "\[Equal]", FractionBox["7", RowBox[{"Sin", "[", RowBox[{"80", "\[Degree]"}], "]"}]]}], ",", "A"}], "]"}]], "Input", CellChangeTimes->{{3.5703906836465*^9, 3.5703907937415*^9}, { 3.57039115492864*^9, 3.570391163579505*^9}, {3.570391233918538*^9, 3.57039129014616*^9}, {3.5703913427384195`*^9, 3.570391380140498*^9}, { 3.5703918230024986`*^9, 3.5703918347284985`*^9}, {3.5703919956314983`*^9, 3.570392003404498*^9}, {3.5703924100704966`*^9, 3.570392438270497*^9}}], Cell["\<\ To get an answer you understand express at least one side length in decimal \ form:\ \>", "Text", CellChangeTimes->{{3.5703914263074985`*^9, 3.5703914627144985`*^9}, { 3.5703917177564983`*^9, 3.5703917309134984`*^9}}], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ FractionBox["4.0", RowBox[{"Sin", "[", RowBox[{"A", " ", "\[Degree]"}], "]"}]], "\[Equal]", FractionBox["7", RowBox[{"Sin", "[", RowBox[{"80", "\[Degree]"}], "]"}]]}], ",", "A"}], "]"}]], "Input", CellChangeTimes->{{3.5703908292915*^9, 3.5703910329635*^9}, { 3.5703911068878365`*^9, 3.570391152276375*^9}, {3.5703912532154675`*^9, 3.5703913341535606`*^9}, {3.5703913695654984`*^9, 3.5703913817294984`*^9}, { 3.5703920082484984`*^9, 3.5703920128004985`*^9}, {3.5703920531514983`*^9, 3.570392062385498*^9}, {3.5703924430044966`*^9, 3.5703924445024967`*^9}}], Cell["\<\ We can use DMSString to write the answer in Degrees Minutes Seconds:\ \>", "Text", CellChangeTimes->{{3.5703921356649065`*^9, 3.5703921588462243`*^9}}], Cell[BoxData[ RowBox[{"DMSString", "[", "34.246", "]"}]], "Input", CellChangeTimes->{{3.5703920845697975`*^9, 3.5703921187022104`*^9}}], Cell["This example finds a missing length:", "Text", CellChangeTimes->{{3.5703926611144967`*^9, 3.570392669119497*^9}}], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ FractionBox["5.0", RowBox[{"Sin", "[", RowBox[{"30", "\[Degree]"}], "]"}]], "\[Equal]", FractionBox["b", RowBox[{"Sin", "[", RowBox[{"80", "\[Degree]"}], "]"}]]}], ",", "b"}], "]"}]], "Input", CellChangeTimes->{{3.570392605144497*^9, 3.570392632661497*^9}}], Cell[TextData[{ "What about the ambiguous case? ", StyleBox["Mathematica", FontSlant->"Italic"], " gives the smaller angle (same as your calculator):" }], "Text", CellChangeTimes->{{3.5703924674304967`*^9, 3.570392506178497*^9}}], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ FractionBox["10.0", RowBox[{"Sin", "[", RowBox[{"A", " ", "\[Degree]"}], "]"}]], "\[Equal]", FractionBox["6", RowBox[{"Sin", "[", RowBox[{"30", "\[Degree]"}], "]"}]]}], ",", "A"}], "]"}]], "Input", CellChangeTimes->{{3.5703908292915*^9, 3.5703910329635*^9}, { 3.5703911068878365`*^9, 3.570391152276375*^9}, {3.5703912532154675`*^9, 3.5703913341535606`*^9}, {3.5703913695654984`*^9, 3.5703913817294984`*^9}, { 3.5703920082484984`*^9, 3.5703920128004985`*^9}, {3.5703920531514983`*^9, 3.570392062385498*^9}, {3.570392294169756*^9, 3.5703923313674746`*^9}, { 3.5703924540164967`*^9, 3.570392460814497*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Cosine Rule", "Subsubsection", CellChangeTimes->{{3.5703919497244987`*^9, 3.5703919522824984`*^9}}], Cell["\<\ We can use Solve again to find the missing values (remember to put one side \ in decimal form):\ \>", "Text", CellChangeTimes->{{3.5703921726896086`*^9, 3.5703921812554655`*^9}, { 3.5703922262829676`*^9, 3.5703922486662054`*^9}, 3.5703928013744965`*^9}], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], "\[Equal]", RowBox[{ SuperscriptBox["6.0", "2"], "+", SuperscriptBox["10", "2"], "-", RowBox[{"2", " ", "6", " ", "10", " ", RowBox[{"Cos", "[", RowBox[{"76", "\[Degree]"}], "]"}]}]}]}], ",", "c"}], "]"}]], "Input", CellChangeTimes->{{3.5703906119005003`*^9, 3.5703906580565004`*^9}, { 3.5703911887080173`*^9, 3.570391243257472*^9}, {3.5703922050498447`*^9, 3.5703922147938185`*^9}}], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ SuperscriptBox["4", "2"], "\[Equal]", RowBox[{ SuperscriptBox["9.0", "2"], "+", SuperscriptBox["7", "2"], "-", RowBox[{"2", " ", "9", " ", "7", " ", RowBox[{"Cos", "[", RowBox[{"A", " ", "\[Degree]"}], "]"}]}]}]}], ",", "A"}], "]"}]], "Input", CellChangeTimes->{{3.570392700168497*^9, 3.5703927759494967`*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Sine & Cosine Rule Exercises", "Section", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.5438273351961613`*^9, 3.5438273410594964`*^9}}], Cell[CellGroupData[{ Cell["\<\ Solve the unknown sides and angles for the following triangles using the Sine \ and Cosine Rule\ \>", "Subsection", CellChangeTimes->{{3.543952942527454*^9, 3.5439529747672977`*^9}}], Cell["\<\ Angles given indicate the interior angle, they are simply on the outside for \ formatting convenience.\ \>", "Text", CellChangeTimes->{{3.543954200621413*^9, 3.5439542287540216`*^9}}], Cell["Drawings are to scale.", "Text", CellChangeTimes->{{3.5439542565246105`*^9, 3.543954260468836*^9}, 3.544223670355759*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Pane", "[", RowBox[{ RowBox[{"Quiz1", "[", "NumberOfProblems1", "]"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"Center", ",", "Center"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "NumberOfProblems1", ",", "9", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "9", ",", "12"}], "}"}], ",", RowBox[{"ControlType", "\[Rule]", "RadioButtonBar"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AutorunSequencing", "\[Rule]", RowBox[{"{", "2", "}"}]}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Quiz1", "[", "probs1_", "]"}], ":=", RowBox[{"TabView", "[", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"allproblems1", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"twostep1", ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ptA", "=", RowBox[{"{", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptB", "=", RowBox[{"{", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"6", ",", "10"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptC", "=", RowBox[{"{", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "10"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"6", ",", "9"}], "}"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Quiet", "[", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ptA", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"ptB", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"ptA", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"ptB", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "==", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ptA", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"ptC", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"ptA", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"ptC", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}], ",", RowBox[{"ptA", "=", RowBox[{"{", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "9"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "9"}], "}"}], "]"}]}], "}"}]}]}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"a", "=", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"ptC", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"ptB", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"ptC", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"ptB", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "2"]}]]}], ";", "\[IndentingNewLine]", RowBox[{"b", "=", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"ptC", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"ptA", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"ptC", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"ptA", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "2"]}]]}], ";", "\[IndentingNewLine]", RowBox[{"c", "=", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"ptA", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"ptB", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"ptA", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"ptB", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "2"]}]]}], ";", "\[IndentingNewLine]", RowBox[{"\[Alpha]", "=", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["c", "2"], "+", SuperscriptBox["b", "2"], "-", SuperscriptBox["a", "2"]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", "c", " ", "b"}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Beta]", "=", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["c", "2"], "+", SuperscriptBox["a", "2"], "-", SuperscriptBox["b", "2"]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", "a", " ", "c"}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]", "=", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["a", "2"], "+", SuperscriptBox["b", "2"], "-", SuperscriptBox["c", "2"]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", "a", " ", "b"}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"side", "=", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"c", ",", "0.1"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "0.5"}]}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptA", "+", "ptB"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rand1", "=", RowBox[{"RandomChoice", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"b", ",", "0.1"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptA", "+", "ptC"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"a", ",", "0.1"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptB", "+", "ptC"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"b", ",", "0.1"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptA", "+", "ptC"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Gamma]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.4"}], "}"}], "+", "ptC"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Beta]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0.4", ",", "0"}], "}"}], "+", "ptB"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Alpha]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", "0"}], "}"}], "+", "ptA"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rand2", "=", RowBox[{"RandomChoice", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"a", ",", "0.1"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptB", "+", "ptC"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"b", ",", "0.1"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptA", "+", "ptC"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Gamma]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.4"}], "}"}], "+", "ptC"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Beta]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0.4", ",", "0"}], "}"}], "+", "ptB"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Alpha]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", "0"}], "}"}], "+", "ptA"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"rand2", "\[Equal]", "rand1"}], ",", RowBox[{"rand2", "=", RowBox[{"RandomChoice", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"a", ",", "0.1"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptB", "+", "ptC"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"b", ",", "0.1"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptA", "+", "ptC"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Gamma]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.4"}], "}"}], "+", "ptC"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Beta]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0.4", ",", "0"}], "}"}], "+", "ptB"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Alpha]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", "0"}], "}"}], "+", "ptA"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}], "}"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"rand3", "=", RowBox[{"RandomChoice", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"a", ",", "0.1"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptB", "+", "ptC"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"b", ",", "0.1"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptA", "+", "ptC"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Gamma]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.4"}], "}"}], "+", "ptC"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Beta]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0.4", ",", "0"}], "}"}], "+", "ptB"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Alpha]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", "0"}], "}"}], "+", "ptA"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"rand3", "\[Equal]", "rand1"}], "||", RowBox[{"rand3", "\[Equal]", "rand2"}]}], ",", RowBox[{"rand3", "=", RowBox[{"RandomChoice", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"a", ",", "0.1"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptB", "+", "ptC"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"b", ",", "0.1"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptA", "+", "ptC"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Gamma]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.4"}], "}"}], "+", "ptC"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Beta]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0.4", ",", "0"}], "}"}], "+", "ptB"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Alpha]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", "0"}], "}"}], "+", "ptA"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}], "}"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"rand3", "===", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"a", ",", "0.1"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptB", "+", "ptC"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}], ",", RowBox[{"rand3", "=", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptB", "+", "ptC"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"rand3", "===", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"b", ",", "0.1"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptA", "+", "ptC"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}], ",", RowBox[{"rand3", "=", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ptA", "+", "ptC"}], ")"}], "/", "2"}]}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"rand3", "===", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Gamma]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.4"}], "}"}], "+", "ptC"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}], ",", RowBox[{"rand3", "=", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\<\[Gamma]\>\"", ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.4"}], "}"}], "+", "ptC"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"rand3", "===", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Beta]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0.4", ",", "0"}], "}"}], "+", "ptB"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}], ",", RowBox[{"rand3", "=", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\<\[Beta]\>\"", ",", RowBox[{ RowBox[{"{", RowBox[{"0.4", ",", "0"}], "}"}], "+", "ptB"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}], ",", RowBox[{"rand3", "=", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\<\[Alpha]\>\"", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", "0"}], "}"}], "+", "ptA"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"prob1", "[", "i_", "]"}], ":=", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"White", ",", RowBox[{"EdgeForm", "[", RowBox[{"Thickness", "[", "0.01", "]"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"ptA", ",", "ptB", ",", "ptC"}], "}"}], "]"}], ",", "Blue", ",", "side", ",", "rand1", ",", "rand2", ",", "rand3"}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\< \>\"", ",", RowBox[{"TraditionalForm", "[", RowBox[{"temp1", "=", RowBox[{"prob1", "[", "n", "]"}]}], "]"}]}], "}"}], "]"}], ",", "\"\< \>\"", ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Round", "[", RowBox[{"a", ",", "0.1"}], "]"}], ",", "\"\<, b = \>\"", ",", RowBox[{"Round", "[", RowBox[{"b", ",", "0.1"}], "]"}], ",", "\"\<, c = \>\"", ",", RowBox[{"Round", "[", RowBox[{"c", ",", "0.1"}], "]"}], ",", "\"\<, A = \>\"", ",", RowBox[{"Round", "[", RowBox[{"\[Alpha]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", "\"\<, B = \>\"", ",", RowBox[{"Round", "[", RowBox[{"\[Beta]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", "\"\<, C = \>\"", ",", RowBox[{"Round", "[", RowBox[{"\[Gamma]", " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}]}], "}"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"n", ",", "1", ",", "probs1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "14", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", "\"\\""}], "}"}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"problist1", "=", RowBox[{ RowBox[{"Select", "[", RowBox[{"allproblems1", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"First", "[", "#1", "]"}], "\[Equal]", "twostep1"}], ")"}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"title1", "=", RowBox[{ RowBox[{"Select", "[", RowBox[{"allproblems1", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"First", "[", "#1", "]"}], "\[Equal]", "twostep1"}], ")"}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\
\"", ",", RowBox[{ RowBox[{"CharacterRange", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "[", RowBox[{"[", "form1", "]"}], "]"}]}], "}"}], "]"}], "\[Rule]", RowBox[{"TabView", "[", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"title1", ",", "\"\< (Form \>\"", ",", RowBox[{ RowBox[{"CharacterRange", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "[", RowBox[{"[", "form1", "]"}], "]"}], ",", "\"\<)\>\""}], "}"}], "]"}], ",", "16", ",", "Bold", ",", "\"\\""}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"problist1", "[", RowBox[{"[", RowBox[{"1", ",", "i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", RowBox[{"problist1", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}], ",", "\[IndentingNewLine]", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", RowBox[{"{", "3", "}"}], ",", "0"}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}]}], "}"}]}]}], "]"}], ",", "14", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", "\"\<\>\""}], "}"}], ",", RowBox[{"Spacings", "\[Rule]", "2"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"title1", ",", "\"\< (Form \>\"", ",", RowBox[{ RowBox[{"CharacterRange", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "[", RowBox[{"[", "form1", "]"}], "]"}], ",", "\"\<)\>\"", ",", RowBox[{"Style", "[", RowBox[{"\"\< Answer Key\>\"", ",", "Blue"}], "]"}]}], "}"}], "]"}], ",", "12", ",", "Bold", ",", "\"\\""}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{"{", RowBox[{ RowBox[{"problist1", "[", RowBox[{"[", RowBox[{"1", ",", "i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"problist1", "[", RowBox[{"[", RowBox[{"1", ",", "i", ",", "3"}], "]"}], "]"}], ",", "Blue"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", RowBox[{"problist1", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}], ",", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{"{", "2", "}"}], ",", "0"}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}]}], "}"}]}]}], "]"}], ",", "12", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Spacings", "\[Rule]", "2"}]}], "]"}]}]}], "\[IndentingNewLine]", "}"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"form1", ",", "1", ",", "3"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.520299393677881*^9, 3.520299403219426*^9}, 3.520299466942071*^9, {3.520550339014577*^9, 3.5205503434293847`*^9}, 3.5205503747854395`*^9, {3.520550442645559*^9, 3.5205504453755636`*^9}, 3.5205504954828515`*^9, 3.5205506897499933`*^9, {3.520550726862458*^9, 3.520550729717263*^9}, 3.5236083910373983`*^9, {3.523608460609378*^9, 3.523608461616435*^9}, {3.523608492540204*^9, 3.523608493017231*^9}, { 3.523608529966345*^9, 3.5236085663994284`*^9}, {3.523608665362089*^9, 3.523608669101303*^9}, {3.523608763411697*^9, 3.523608789204172*^9}, { 3.523609002481371*^9, 3.523609051143154*^9}, {3.5236092274512386`*^9, 3.523609238467869*^9}, {3.5236092829004097`*^9, 3.52360930754482*^9}, { 3.5236622716006565`*^9, 3.523662365605033*^9}, {3.5236627732723503`*^9, 3.5236627845139933`*^9}, {3.523662901118663*^9, 3.5236629200377445`*^9}, { 3.5267572256186323`*^9, 3.5267573377204294`*^9}, 3.5289563690896387`*^9, { 3.543801667541169*^9, 3.543801770939169*^9}, {3.543801801703169*^9, 3.5438018017471695`*^9}, {3.543801845286169*^9, 3.5438019444712024`*^9}, 3.543802021748585*^9, {3.543802073309585*^9, 3.543802074843585*^9}, { 3.543802143152585*^9, 3.5438023540995855`*^9}, {3.543802400982585*^9, 3.5438025102975855`*^9}, {3.5438027507318296`*^9, 3.5438027603467913`*^9}, {3.543803792045986*^9, 3.543803794298986*^9}, { 3.543804856625986*^9, 3.543804876809986*^9}, {3.543804936909986*^9, 3.543804944820986*^9}, {3.5438177064064255`*^9, 3.5438177345680366`*^9}, { 3.5438177692190185`*^9, 3.54381780823125*^9}, {3.5438182554558296`*^9, 3.543818275254962*^9}, {3.5438183710474415`*^9, 3.543818384418206*^9}, { 3.5438187367743597`*^9, 3.5438187418106475`*^9}, {3.5438187863801966`*^9, 3.5438187883993125`*^9}, {3.5438194152991686`*^9, 3.5438194337522244`*^9}, 3.5438199813255434`*^9, {3.543820105338637*^9, 3.5438201132490892`*^9}, { 3.5438261274760838`*^9, 3.5438261581478376`*^9}, {3.5438262009802876`*^9, 3.543826336786055*^9}, {3.5438264368147764`*^9, 3.5438264736338825`*^9}, { 3.5439526739670935`*^9, 3.5439527727687445`*^9}, {3.5439528377614617`*^9, 3.543952892993621*^9}, {3.5439533793224373`*^9, 3.5439534637722673`*^9}, { 3.543953499087288*^9, 3.5439535395256004`*^9}, {3.5439535872523303`*^9, 3.5439536375272055`*^9}, {3.5439536773994865`*^9, 3.543953801631592*^9}, { 3.5439540795244865`*^9, 3.5439540811475797`*^9}, {3.543954389905239*^9, 3.543954396940642*^9}, {3.5439586605835085`*^9, 3.5439587069921627`*^9}, { 3.544222307903806*^9, 3.544222326427806*^9}, {3.544222372425666*^9, 3.544222411345557*^9}, {3.5442224847909007`*^9, 3.5442225271721387`*^9}, { 3.5442225928847094`*^9, 3.544222599635384*^9}, {3.544222643217742*^9, 3.5442228677831964`*^9}, {3.5442233761120243`*^9, 3.5442234361440268`*^9}, 3.544223581072688*^9, {3.544223618840911*^9, 3.5442236221275826`*^9}}], Cell[BoxData[ FormBox[ TagBox[ FormBox[ StyleBox[ DynamicModuleBox[{$CellContext`NumberOfProblems1$$ = 9, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`NumberOfProblems1$$], 9, "number of problems"}, {6, 9, 12}}}, Typeset`size$$ = {771., {663., 670.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`NumberOfProblems1$8301$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, TraditionalForm, "Variables" :> {$CellContext`NumberOfProblems1$$ = 9}, "ControllerVariables" :> { Hold[$CellContext`NumberOfProblems1$$, \ $CellContext`NumberOfProblems1$8301$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Pane[ $CellContext`Quiz1[$CellContext`NumberOfProblems1$$], Alignment -> {Center, Center}], "Specifications" :> {{{$CellContext`NumberOfProblems1$$, 9, "number of problems"}, {6, 9, 12}, ControlType -> RadioButtonBar}}, "Options" :> {AutorunSequencing -> {2}}, "DefaultOptions" :> {}], ImageSizeCache->{822., {705., 712.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`Quiz1[ Pattern[$CellContext`probs1, Blank[]]] := TabView[ Table[$CellContext`allproblems1 = {{$CellContext`twostep1, Style[ Table[$CellContext`ptA = { RandomInteger[{1, 4}], RandomInteger[{1, 4}]}; $CellContext`ptB = { RandomInteger[{6, 10}], RandomInteger[{1, 4}]}; $CellContext`ptC = { RandomInteger[{1, 10}], RandomInteger[{6, 9}]}; Quiet[ While[(Part[$CellContext`ptA, 2] - Part[$CellContext`ptB, 2])/(Part[$CellContext`ptA, 1] - Part[$CellContext`ptB, 1]) == (Part[$CellContext`ptA, 2] - Part[$CellContext`ptC, 2])/(Part[$CellContext`ptA, 1] - Part[$CellContext`ptC, 1]), $CellContext`ptA = { RandomInteger[{1, 9}], RandomInteger[{1, 9}]}]]; $CellContext`a = Sqrt[(Part[$CellContext`ptC, 1] - Part[$CellContext`ptB, 1])^2 + (Part[$CellContext`ptC, 2] - Part[$CellContext`ptB, 2])^2]; $CellContext`b = Sqrt[(Part[$CellContext`ptC, 1] - Part[$CellContext`ptA, 1])^2 + (Part[$CellContext`ptC, 2] - Part[$CellContext`ptA, 2])^2]; $CellContext`c = Sqrt[(Part[$CellContext`ptA, 1] - Part[$CellContext`ptB, 1])^2 + (Part[$CellContext`ptA, 2] - Part[$CellContext`ptB, 2])^2]; $CellContext`\[Alpha] = ArcCos[($CellContext`c^2 + $CellContext`b^2 - \ $CellContext`a^2)/((2 $CellContext`c) $CellContext`b)]; $CellContext`\[Beta] = ArcCos[($CellContext`c^2 + $CellContext`a^2 - \ $CellContext`b^2)/((2 $CellContext`a) $CellContext`c)]; $CellContext`\[Gamma] = ArcCos[($CellContext`a^2 + $CellContext`b^2 - \ $CellContext`c^2)/((2 $CellContext`a) $CellContext`b)]; $CellContext`side = Style[ Text[ Round[$CellContext`c, 0.1], { 0, -0.5} + ($CellContext`ptA + $CellContext`ptB)/2], FontSize -> 14]; $CellContext`rand1 = RandomChoice[{ Style[ Text[ Round[$CellContext`b, 0.1], {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/ 2], FontSize -> 14], Style[ Text[ Round[$CellContext`a, 0.1], { 0.5, 0} + ($CellContext`ptB + $CellContext`ptC)/2], FontSize -> 14], Style[ Text[ Round[$CellContext`b, 0.1], {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/ 2], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Gamma] (180/Pi)], { 0, 0.4} + $CellContext`ptC], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Beta] (180/Pi)], { 0.4, 0} + $CellContext`ptB], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Alpha] (180/Pi)], {-0.4, 0} + $CellContext`ptA], FontSize -> 14]}]; $CellContext`rand2 = RandomChoice[{ Style[ Text[ Round[$CellContext`a, 0.1], { 0.5, 0} + ($CellContext`ptB + $CellContext`ptC)/2], FontSize -> 14], Style[ Text[ Round[$CellContext`b, 0.1], {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/ 2], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Gamma] (180/Pi)], { 0, 0.4} + $CellContext`ptC], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Beta] (180/Pi)], { 0.4, 0} + $CellContext`ptB], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Alpha] (180/Pi)], {-0.4, 0} + $CellContext`ptA], FontSize -> 14]}]; While[$CellContext`rand2 == $CellContext`rand1, \ $CellContext`rand2 = RandomChoice[{ Style[ Text[ Round[$CellContext`a, 0.1], { 0.5, 0} + ($CellContext`ptB + $CellContext`ptC)/2], FontSize -> 14], Style[ Text[ Round[$CellContext`b, 0.1], {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/ 2], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Gamma] (180/Pi)], { 0, 0.4} + $CellContext`ptC], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Beta] (180/Pi)], { 0.4, 0} + $CellContext`ptB], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Alpha] (180/Pi)], {-0.4, 0} + $CellContext`ptA], FontSize -> 14]}]]; $CellContext`rand3 = RandomChoice[{ Style[ Text[ Round[$CellContext`a, 0.1], { 0.5, 0} + ($CellContext`ptB + $CellContext`ptC)/2], FontSize -> 14], Style[ Text[ Round[$CellContext`b, 0.1], {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/ 2], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Gamma] (180/Pi)], { 0, 0.4} + $CellContext`ptC], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Beta] (180/Pi)], { 0.4, 0} + $CellContext`ptB], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Alpha] (180/Pi)], {-0.4, 0} + $CellContext`ptA], FontSize -> 14]}]; While[ Or[$CellContext`rand3 == $CellContext`rand1, \ $CellContext`rand3 == $CellContext`rand2], $CellContext`rand3 = RandomChoice[{ Style[ Text[ Round[$CellContext`a, 0.1], { 0.5, 0} + ($CellContext`ptB + $CellContext`ptC)/2], FontSize -> 14], Style[ Text[ Round[$CellContext`b, 0.1], {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/ 2], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Gamma] (180/Pi)], { 0, 0.4} + $CellContext`ptC], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Beta] (180/Pi)], { 0.4, 0} + $CellContext`ptB], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Alpha] (180/Pi)], {-0.4, 0} + $CellContext`ptA], FontSize -> 14]}]]; If[$CellContext`rand3 == Style[ Text[ Round[$CellContext`a, 0.1], { 0.5, 0} + ($CellContext`ptB + $CellContext`ptC)/2], FontSize -> 14], $CellContext`rand3 = Style[ Text[ "a", {0.5, 0} + ($CellContext`ptB + $CellContext`ptC)/2], FontSize -> 14], If[$CellContext`rand3 == Style[ Text[ Round[$CellContext`b, 0.1], {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/ 2], FontSize -> 14], $CellContext`rand3 = Style[ Text[ "b", {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/2], FontSize -> 14], If[$CellContext`rand3 == Style[ Text[ Round[$CellContext`\[Gamma] (180/Pi)], { 0, 0.4} + $CellContext`ptC], FontSize -> 14], $CellContext`rand3 = Style[ Text["\[Gamma]", {0, 0.4} + $CellContext`ptC], FontSize -> 14], If[$CellContext`rand3 == Style[ Text[ Round[$CellContext`\[Beta] (180/Pi)], { 0.4, 0} + $CellContext`ptB], FontSize -> 14], $CellContext`rand3 = Style[ Text["\[Beta]", {0.4, 0} + $CellContext`ptB], FontSize -> 14], $CellContext`rand3 = Style[ Text["\[Alpha] ", {-0.4, 0} + $CellContext`ptA], FontSize -> 14]]]]]; $CellContext`prob1[ Pattern[$CellContext`i, Blank[]]] := Graphics[{White, EdgeForm[ Thickness[0.01]], Polygon[{$CellContext`ptA, $CellContext`ptB, \ $CellContext`ptC}], Blue, $CellContext`side, $CellContext`rand1, \ $CellContext`rand2, $CellContext`rand3}, ImageSize -> 200]; { Row[{"", " ", TraditionalForm[$CellContext`temp1 = \ $CellContext`prob1[$CellContext`n]]}], " ", Row[{"a = ", Round[$CellContext`a, 0.1], ", b = ", Round[$CellContext`b, 0.1], ", c = ", Round[$CellContext`c, 0.1], ", A = ", Round[$CellContext`\[Alpha] (180/Pi)], ", B = ", Round[$CellContext`\[Beta] (180/Pi)], ", C = ", Round[$CellContext`\[Gamma] (180/Pi)]}]}, {$CellContext`n, 1, $CellContext`probs1}], 14, FontFamily -> "Times"], "Trigonometry"}}; $CellContext`problist1 = Part[ Select[$CellContext`allproblems1, First[#] == $CellContext`twostep1& ], 1, 2]; $CellContext`title1 = Part[ Select[$CellContext`allproblems1, First[#] == $CellContext`twostep1& ], 1, 3]; Row[{"Form ", Part[ CharacterRange["A", "Z"], $CellContext`form1]}] -> TabView[{"Questions" -> Column[{ Style[ Row[{$CellContext`title1, " (Form ", Part[ CharacterRange["A", "Z"], $CellContext`form1], ")"}], 16, Bold, "Label"], Style[ Grid[ Partition[ Table[ Part[$CellContext`problist1, 1, $CellContext`i, 1], {$CellContext`i, 1, Length[ Part[$CellContext`problist1, 1]]}], 3], Alignment -> Left, Spacings -> {"Rows" -> {2, {3}, 0}, "Columns" -> 3}], 14, FontFamily -> "Times"], ""}, Spacings -> 2], "Answers" -> Column[{ Style[ Row[{$CellContext`title1, " (Form ", Part[ CharacterRange["A", "Z"], $CellContext`form1], ")", Style[" Answer Key", Blue]}], 12, Bold, "Label"], Style[ Grid[ Partition[ Table[ Column[{ Part[$CellContext`problist1, 1, $CellContext`i, 1], Style[ Part[$CellContext`problist1, 1, $CellContext`i, 3], Blue]}], {$CellContext`i, 1, Length[ Part[$CellContext`problist1, 1]]}], 3], Alignment -> Left, Spacings -> {"Rows" -> {1, {2}, 0}, "Columns" -> 3}], 12, FontFamily -> "Times"]}, Spacings -> 2]}], {$CellContext`form1, 1, 3}]], $CellContext`allproblems1 = {{$CellContext`twostep1, Style[{{ Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{3, 1}, {8, 1}, {10, 7}}], RGBColor[0, 0, 1], Style[ Text[5., {11/2, 0.5}], FontSize -> 14], Style[ Text[6.300000000000001, {9.5, 4}], FontSize -> 14], Style[ Text[31, {10, 7.4}], FontSize -> 14], Style[ Text[41, {2.6, 1}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 6.300000000000001, ", b = ", 9.200000000000001, ", c = ", 5., ", A = ", 41, ", B = ", 108, ", C = ", 31}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{1, 1}, {7, 4}, {10, 6}}], RGBColor[0, 0, 1], Style[ Text[6.7, {4, 2.}], FontSize -> 14], Style[ Text[2, {0.6, 1}], FontSize -> 14], Style[ Text[5, {10, 6.4}], FontSize -> 14], Style[ Text[10.3, {5., 7/2}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 3.6, ", b = ", 10.3, ", c = ", 6.7, ", A = ", 2, ", B = ", 173, ", C = ", 5}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{2, 1}, {10, 4}, {3, 9}}], RGBColor[0, 0, 1], Style[ Text[8.5, {6, 2.}], FontSize -> 14], Style[ Text[56, {10.4, 4}], FontSize -> 14], Style[ Text[8.6, {7., 13/2}], FontSize -> 14], Style[ Text[62, {3, 9.4}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 8.6, ", b = ", 8.1, ", c = ", 8.5, ", A = ", 62, ", B = ", 56, ", C = ", 62}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{4, 3}, {8, 1}, {9, 8}}], RGBColor[0, 0, 1], Style[ Text[4.5, {6, 1.5}], FontSize -> 14], Style[ Text[7.1000000000000005`, {6., 11/2}], FontSize -> 14], Style[ Text[37, {9, 8.4}], FontSize -> 14], Style[ Text[72, {8.4, 1}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 7.1000000000000005`, ", b = ", 7.1000000000000005`, ", c = ", 4.5, ", A = ", 72, ", B = ", 72, ", C = ", 37}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{4, 4}, {9, 4}, {5, 7}}], RGBColor[0, 0, 1], Style[ Text[5., {13/2, 3.5}], FontSize -> 14], Style[ Text[37, {9.4, 4}], FontSize -> 14], Style[ Text[72, {3.6, 4}], FontSize -> 14], Style[ Text[3.2, {4., 11/2}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 5., ", b = ", 3.2, ", c = ", 5., ", A = ", 72, ", B = ", 37, ", C = ", 72}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{3, 4}, {8, 3}, {4, 8}}], RGBColor[0, 0, 1], Style[ Text[5.1000000000000005`, {11/2, 3.}], FontSize -> 14], Style[ Text[4.1000000000000005`, {3., 6}], FontSize -> 14], Style[ Text[53, {4, 8.4}], FontSize -> 14], Style[ Text[87, {2.6, 4}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 6.4, ", b = ", 4.1000000000000005`, ", c = ", 5.1000000000000005`, ", A = ", 87, ", B = ", 40, ", C = ", 53}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{1, 4}, {8, 4}, {5, 8}}], RGBColor[0, 0, 1], Style[ Text[7., {9/2, 3.5}], FontSize -> 14], Style[ Text[5.7, {2.5, 6}], FontSize -> 14], Style[ Text[82, {5, 8.4}], FontSize -> 14], Style[ Text["a", {7., 6}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 5., ", b = ", 5.7, ", c = ", 7., ", A = ", 45, ", B = ", 53, ", C = ", 82}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{4, 4}, {7, 2}, {3, 7}}], RGBColor[0, 0, 1], Style[ Text[3.6, {11/2, 2.5}], FontSize -> 14], Style[ Text[6.4, {5.5, 9/2}], FontSize -> 14], Style[ Text[142, {3.6, 4}], FontSize -> 14], Style[ Text[20, {3, 7.4}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 6.4, ", b = ", 3.2, ", c = ", 3.6, ", A = ", 142, ", B = ", 18, ", C = ", 20}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{4, 1}, {9, 4}, {6, 9}}], RGBColor[0, 0, 1], Style[ Text[5.800000000000001, {13/2, 2.}], FontSize -> 14], Style[ Text[90, {9.4, 4}], FontSize -> 14], Style[ Text[8.200000000000001, {4.5, 5}], FontSize -> 14], Style[ Text[45, {3.6, 1}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 5.800000000000001, ", b = ", 8.200000000000001, ", c = ", 5.800000000000001, ", A = ", 45, ", B = ", 90, ", C = ", 45}]}}, 14, FontFamily -> "Times"], "Trigonometry"}}, $CellContext`ptA = {4, 1}, $CellContext`ptB = {9, 4}, $CellContext`ptC = {6, 9}, $CellContext`a = Sqrt[34], $CellContext`b = 2 Sqrt[17], $CellContext`c = Sqrt[34], $CellContext`\[Alpha] = Pi/4, $CellContext`\[Beta] = Pi/2, $CellContext`\[Gamma] = Pi/4, $CellContext`side = Style[ Text[5.800000000000001, {13/2, 2.}], FontSize -> 14], $CellContext`rand1 = Style[ Text[90, {9.4, 4}], FontSize -> 14], $CellContext`rand2 = Style[ Text[8.200000000000001, {4.5, 5}], FontSize -> 14], $CellContext`rand3 = Style[ Text[45, {3.6, 1}], FontSize -> 14], $CellContext`prob1[ Pattern[$CellContext`i, Blank[]]] := Graphics[{White, EdgeForm[ Thickness[0.01]], Polygon[{$CellContext`ptA, $CellContext`ptB, $CellContext`ptC}], Blue, $CellContext`side, $CellContext`rand1, \ $CellContext`rand2, $CellContext`rand3}, ImageSize -> 200], $CellContext`temp1 = Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{4, 1}, {9, 4}, {6, 9}}], RGBColor[0, 0, 1], Style[ Text[5.800000000000001, {13/2, 2.}], FontSize -> 14], Style[ Text[90, {9.4, 4}], FontSize -> 14], Style[ Text[8.200000000000001, {4.5, 5}], FontSize -> 14], Style[ Text[45, {3.6, 1}], FontSize -> 14]}, ImageSize -> 200], $CellContext`problist1 = Style[{{ Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{3, 1}, {8, 1}, {10, 7}}], RGBColor[0, 0, 1], Style[ Text[5., {11/2, 0.5}], FontSize -> 14], Style[ Text[6.300000000000001, {9.5, 4}], FontSize -> 14], Style[ Text[31, {10, 7.4}], FontSize -> 14], Style[ Text[41, {2.6, 1}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 6.300000000000001, ", b = ", 9.200000000000001, ", c = ", 5., ", A = ", 41, ", B = ", 108, ", C = ", 31}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{1, 1}, {7, 4}, {10, 6}}], RGBColor[0, 0, 1], Style[ Text[6.7, {4, 2.}], FontSize -> 14], Style[ Text[2, {0.6, 1}], FontSize -> 14], Style[ Text[5, {10, 6.4}], FontSize -> 14], Style[ Text[10.3, {5., 7/2}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 3.6, ", b = ", 10.3, ", c = ", 6.7, ", A = ", 2, ", B = ", 173, ", C = ", 5}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{2, 1}, {10, 4}, {3, 9}}], RGBColor[0, 0, 1], Style[ Text[8.5, {6, 2.}], FontSize -> 14], Style[ Text[56, {10.4, 4}], FontSize -> 14], Style[ Text[8.6, {7., 13/2}], FontSize -> 14], Style[ Text[62, {3, 9.4}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 8.6, ", b = ", 8.1, ", c = ", 8.5, ", A = ", 62, ", B = ", 56, ", C = ", 62}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{4, 3}, {8, 1}, {9, 8}}], RGBColor[0, 0, 1], Style[ Text[4.5, {6, 1.5}], FontSize -> 14], Style[ Text[7.1000000000000005`, {6., 11/2}], FontSize -> 14], Style[ Text[37, {9, 8.4}], FontSize -> 14], Style[ Text[72, {8.4, 1}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 7.1000000000000005`, ", b = ", 7.1000000000000005`, ", c = ", 4.5, ", A = ", 72, ", B = ", 72, ", C = ", 37}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{4, 4}, {9, 4}, {5, 7}}], RGBColor[0, 0, 1], Style[ Text[5., {13/2, 3.5}], FontSize -> 14], Style[ Text[37, {9.4, 4}], FontSize -> 14], Style[ Text[72, {3.6, 4}], FontSize -> 14], Style[ Text[3.2, {4., 11/2}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 5., ", b = ", 3.2, ", c = ", 5., ", A = ", 72, ", B = ", 37, ", C = ", 72}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{3, 4}, {8, 3}, {4, 8}}], RGBColor[0, 0, 1], Style[ Text[5.1000000000000005`, {11/2, 3.}], FontSize -> 14], Style[ Text[4.1000000000000005`, {3., 6}], FontSize -> 14], Style[ Text[53, {4, 8.4}], FontSize -> 14], Style[ Text[87, {2.6, 4}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 6.4, ", b = ", 4.1000000000000005`, ", c = ", 5.1000000000000005`, ", A = ", 87, ", B = ", 40, ", C = ", 53}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{1, 4}, {8, 4}, {5, 8}}], RGBColor[0, 0, 1], Style[ Text[7., {9/2, 3.5}], FontSize -> 14], Style[ Text[5.7, {2.5, 6}], FontSize -> 14], Style[ Text[82, {5, 8.4}], FontSize -> 14], Style[ Text["a", {7., 6}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 5., ", b = ", 5.7, ", c = ", 7., ", A = ", 45, ", B = ", 53, ", C = ", 82}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{4, 4}, {7, 2}, {3, 7}}], RGBColor[0, 0, 1], Style[ Text[3.6, {11/2, 2.5}], FontSize -> 14], Style[ Text[6.4, {5.5, 9/2}], FontSize -> 14], Style[ Text[142, {3.6, 4}], FontSize -> 14], Style[ Text[20, {3, 7.4}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 6.4, ", b = ", 3.2, ", c = ", 3.6, ", A = ", 142, ", B = ", 18, ", C = ", 20}]}, { Row[{"", " ", TraditionalForm[ Graphics[{ GrayLevel[1], EdgeForm[ Thickness[0.01]], Polygon[{{4, 1}, {9, 4}, {6, 9}}], RGBColor[0, 0, 1], Style[ Text[5.800000000000001, {13/2, 2.}], FontSize -> 14], Style[ Text[90, {9.4, 4}], FontSize -> 14], Style[ Text[8.200000000000001, {4.5, 5}], FontSize -> 14], Style[ Text[45, {3.6, 1}], FontSize -> 14]}, ImageSize -> 200]]}], " ", Row[{"a = ", 5.800000000000001, ", b = ", 8.200000000000001, ", c = ", 5.800000000000001, ", A = ", 45, ", B = ", 90, ", C = ", 45}]}}, 14, FontFamily -> "Times"], $CellContext`title1 = "Trigonometry"}; {$CellContext`Quiz1[ Pattern[$CellContext`probs1, Blank[]]] := TabView[ Table[$CellContext`allproblems1 = {{$CellContext`twostep1, Style[ Table[$CellContext`ptA = { RandomInteger[{1, 4}], RandomInteger[{1, 4}]}; $CellContext`ptB = { RandomInteger[{6, 10}], RandomInteger[{1, 4}]}; $CellContext`ptC = { RandomInteger[{1, 10}], RandomInteger[{6, 9}]}; Quiet[ While[(Part[$CellContext`ptA, 2] - Part[$CellContext`ptB, 2])/(Part[$CellContext`ptA, 1] - Part[$CellContext`ptB, 1]) == (Part[$CellContext`ptA, 2] - Part[$CellContext`ptC, 2])/(Part[$CellContext`ptA, 1] - Part[$CellContext`ptC, 1]), $CellContext`ptA = { RandomInteger[{1, 9}], RandomInteger[{1, 9}]}]]; $CellContext`a = (( Part[$CellContext`ptC, 1] - Part[$CellContext`ptB, 1])^2 + (Part[$CellContext`ptC, 2] - Part[$CellContext`ptB, 2])^2)^ Rational[ 1, 2]; $CellContext`b = ((Part[$CellContext`ptC, 1] - Part[$CellContext`ptA, 1])^2 + (Part[$CellContext`ptC, 2] - Part[$CellContext`ptA, 2])^2)^ Rational[ 1, 2]; $CellContext`c = ((Part[$CellContext`ptA, 1] - Part[$CellContext`ptB, 1])^2 + (Part[$CellContext`ptA, 2] - Part[$CellContext`ptB, 2])^2)^ Rational[1, 2]; $CellContext`\[Alpha] = ArcCos[($CellContext`c^2 + $CellContext`b^2 - \ $CellContext`a^2)/((2 $CellContext`c) $CellContext`b)]; $CellContext`\[Beta] = ArcCos[($CellContext`c^2 + $CellContext`a^2 - \ $CellContext`b^2)/((2 $CellContext`a) $CellContext`c)]; $CellContext`\[Gamma] = ArcCos[($CellContext`a^2 + $CellContext`b^2 - \ $CellContext`c^2)/((2 $CellContext`a) $CellContext`b)]; $CellContext`side = Style[ Text[ Round[$CellContext`c, 0.1], { 0, -0.5} + ($CellContext`ptA + $CellContext`ptB)/2], FontSize -> 14]; $CellContext`rand1 = RandomChoice[{ Style[ Text[ Round[$CellContext`b, 0.1], {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/ 2], FontSize -> 14], Style[ Text[ Round[$CellContext`a, 0.1], { 0.5, 0} + ($CellContext`ptB + $CellContext`ptC)/2], FontSize -> 14], Style[ Text[ Round[$CellContext`b, 0.1], {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/ 2], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Gamma] (180/Pi)], { 0, 0.4} + $CellContext`ptC], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Beta] (180/Pi)], { 0.4, 0} + $CellContext`ptB], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Alpha] (180/Pi)], {-0.4, 0} + $CellContext`ptA], FontSize -> 14]}]; $CellContext`rand2 = RandomChoice[{ Style[ Text[ Round[$CellContext`a, 0.1], { 0.5, 0} + ($CellContext`ptB + $CellContext`ptC)/2], FontSize -> 14], Style[ Text[ Round[$CellContext`b, 0.1], {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/ 2], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Gamma] (180/Pi)], { 0, 0.4} + $CellContext`ptC], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Beta] (180/Pi)], { 0.4, 0} + $CellContext`ptB], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Alpha] (180/Pi)], {-0.4, 0} + $CellContext`ptA], FontSize -> 14]}]; While[$CellContext`rand2 == $CellContext`rand1, \ $CellContext`rand2 = RandomChoice[{ Style[ Text[ Round[$CellContext`a, 0.1], { 0.5, 0} + ($CellContext`ptB + $CellContext`ptC)/2], FontSize -> 14], Style[ Text[ Round[$CellContext`b, 0.1], {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/ 2], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Gamma] (180/Pi)], { 0, 0.4} + $CellContext`ptC], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Beta] (180/Pi)], { 0.4, 0} + $CellContext`ptB], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Alpha] (180/Pi)], {-0.4, 0} + $CellContext`ptA], FontSize -> 14]}]]; $CellContext`rand3 = RandomChoice[{ Style[ Text[ Round[$CellContext`a, 0.1], { 0.5, 0} + ($CellContext`ptB + $CellContext`ptC)/2], FontSize -> 14], Style[ Text[ Round[$CellContext`b, 0.1], {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/ 2], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Gamma] (180/Pi)], { 0, 0.4} + $CellContext`ptC], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Beta] (180/Pi)], { 0.4, 0} + $CellContext`ptB], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Alpha] (180/Pi)], {-0.4, 0} + $CellContext`ptA], FontSize -> 14]}]; While[ Or[$CellContext`rand3 == $CellContext`rand1, \ $CellContext`rand3 == $CellContext`rand2], $CellContext`rand3 = RandomChoice[{ Style[ Text[ Round[$CellContext`a, 0.1], { 0.5, 0} + ($CellContext`ptB + $CellContext`ptC)/2], FontSize -> 14], Style[ Text[ Round[$CellContext`b, 0.1], {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/ 2], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Gamma] (180/Pi)], { 0, 0.4} + $CellContext`ptC], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Beta] (180/Pi)], { 0.4, 0} + $CellContext`ptB], FontSize -> 14], Style[ Text[ Round[$CellContext`\[Alpha] (180/Pi)], {-0.4, 0} + $CellContext`ptA], FontSize -> 14]}]]; If[$CellContext`rand3 === Style[ Text[ Round[$CellContext`a, 0.1], { 0.5, 0} + ($CellContext`ptB + $CellContext`ptC)/2], FontSize -> 14], $CellContext`rand3 = Style[ Text[ "a", {0.5, 0} + ($CellContext`ptB + $CellContext`ptC)/2], FontSize -> 14], If[$CellContext`rand3 === Style[ Text[ Round[$CellContext`b, 0.1], {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/ 2], FontSize -> 14], $CellContext`rand3 = Style[ Text[ "b", {-0.5, 0} + ($CellContext`ptA + $CellContext`ptC)/2], FontSize -> 14], If[$CellContext`rand3 === Style[ Text[ Round[$CellContext`\[Gamma] (180/Pi)], { 0, 0.4} + $CellContext`ptC], FontSize -> 14], $CellContext`rand3 = Style[ Text["\[Gamma]", {0, 0.4} + $CellContext`ptC], FontSize -> 14], If[$CellContext`rand3 === Style[ Text[ Round[$CellContext`\[Beta] (180/Pi)], { 0.4, 0} + $CellContext`ptB], FontSize -> 14], $CellContext`rand3 = Style[ Text["\[Beta]", {0.4, 0} + $CellContext`ptB], FontSize -> 14], $CellContext`rand3 = Style[ Text["\[Alpha]", {-0.4, 0} + $CellContext`ptA], FontSize -> 14]]]]]; $CellContext`prob1[ Pattern[$CellContext`i, Blank[]]] := Graphics[{White, EdgeForm[ Thickness[0.01]], Polygon[{$CellContext`ptA, $CellContext`ptB, \ $CellContext`ptC}], Blue, $CellContext`side, $CellContext`rand1, \ $CellContext`rand2, $CellContext`rand3}, ImageSize -> 200]; { Row[{"", " ", TraditionalForm[$CellContext`temp1 = \ $CellContext`prob1[$CellContext`n]]}], " ", Row[{"a = ", Round[$CellContext`a, 0.1], ", b = ", Round[$CellContext`b, 0.1], ", c = ", Round[$CellContext`c, 0.1], ", A = ", Round[$CellContext`\[Alpha] (180/Pi)], ", B = ", Round[$CellContext`\[Beta] (180/Pi)], ", C = ", Round[$CellContext`\[Gamma] (180/Pi)]}]}, {$CellContext`n, 1, $CellContext`probs1}], 14, FontFamily -> "Times"], "Trigonometry"}}; $CellContext`problist1 = Part[ Select[$CellContext`allproblems1, First[#] == $CellContext`twostep1& ], 1, 2]; $CellContext`title1 = Part[ Select[$CellContext`allproblems1, First[#] == $CellContext`twostep1& ], 1, 3]; Row[{"Form ", Part[ CharacterRange["A", "Z"], $CellContext`form1]}] -> TabView[{"Questions" -> Column[{ Style[ Row[{$CellContext`title1, " (Form ", Part[ CharacterRange["A", "Z"], $CellContext`form1], ")"}], 16, Bold, "Label"], Style[ Grid[ Partition[ Table[ Part[$CellContext`problist1, 1, $CellContext`i, 1], {$CellContext`i, 1, Length[ Part[$CellContext`problist1, 1]]}], 3], Alignment -> Left, Spacings -> {"Rows" -> {2, {3}, 0}, "Columns" -> 3}], 14, FontFamily -> "Times"], ""}, Spacings -> 2], "Answers" -> Column[{ Style[ Row[{$CellContext`title1, " (Form ", Part[ CharacterRange["A", "Z"], $CellContext`form1], ")", Style[" Answer Key", Blue]}], 12, Bold, "Label"], Style[ Grid[ Partition[ Table[ Column[{ Part[$CellContext`problist1, 1, $CellContext`i, 1], Style[ Part[$CellContext`problist1, 1, $CellContext`i, 3], Blue]}], {$CellContext`i, 1, Length[ Part[$CellContext`problist1, 1]]}], 3], Alignment -> Left, Spacings -> {"Rows" -> {1, {2}, 0}, "Columns" -> 3}], 12, FontFamily -> "Times"]}, Spacings -> 2]}], {$CellContext`form1, 1, 3}]]; Null}}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], TraditionalForm], Manipulate`InterpretManipulate[1]], TraditionalForm]], "Output", CellChangeTimes->{{3.523609311619053*^9, 3.523609315282262*^9}, 3.523609450290984*^9, {3.5236623749475675`*^9, 3.5236623991479516`*^9}, { 3.523662928602235*^9, 3.5236629495184307`*^9}, 3.526757339888833*^9, { 3.5289563724436445`*^9, 3.5289563858752685`*^9}, 3.5291001782745175`*^9, { 3.54380195764952*^9, 3.543801990312786*^9}, {3.5438020290165854`*^9, 3.543802076776585*^9}, {3.5438023294485855`*^9, 3.543802356031585*^9}, 3.543802390144585*^9, 3.543802561085585*^9, 3.543802772859042*^9, { 3.5438037961109858`*^9, 3.543803801402986*^9}, {3.543804858644986*^9, 3.543804896144986*^9}, {3.543804946054986*^9, 3.543804948652986*^9}, 3.543817825944263*^9, 3.5438182783581395`*^9, 3.543818332130215*^9, { 3.543818388871461*^9, 3.543818413705881*^9}, 3.543818749216071*^9, { 3.5438194536323614`*^9, 3.543819456043499*^9}, {3.5438199929192066`*^9, 3.5438200056629357`*^9}, {3.5438201176563416`*^9, 3.543820146367984*^9}, { 3.543826095805272*^9, 3.54382609716035*^9}, {3.5438261410488596`*^9, 3.5438261834472847`*^9}, {3.5438264185267305`*^9, 3.543826446780347*^9}, { 3.543826489800807*^9, 3.543826503508591*^9}, {3.5438265540834837`*^9, 3.5438265806550035`*^9}, {3.5438274553310328`*^9, 3.5438274582001963`*^9}, {3.5438275478673253`*^9, 3.5438275819102726`*^9}, {3.5438669445067034`*^9, 3.5438669763017035`*^9}, 3.5439525960316353`*^9, {3.5439526275524387`*^9, 3.543952649222678*^9}, 3.5439527763129473`*^9, {3.54395280818377*^9, 3.5439528631549144`*^9}, 3.5439528972168627`*^9, {3.543953030369478*^9, 3.5439530604681997`*^9}, 3.5439538293001747`*^9, {3.5439540834447107`*^9, 3.5439541126713824`*^9}, { 3.5439541489694586`*^9, 3.5439541522506466`*^9}, {3.543954397876695*^9, 3.543954409983388*^9}, 3.5439587106723733`*^9, 3.5439587544738784`*^9, { 3.544222313673806*^9, 3.544222328897806*^9}, {3.544222875209939*^9, 3.544222910187436*^9}, {3.544223443195732*^9, 3.5442234576321754`*^9}, 3.544223628062989*^9}] }, {2}]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Sine Rule and Cosine Rule Functions", "Section", CellChangeTimes->{{3.543798662498884*^9, 3.543798683525884*^9}}], Cell["\<\ The following functions have been created to use the Sine or Cosine Rule to \ solve for an unknown side or angle when given the other pieces of \ information. \ \>", "Text", CellChangeTimes->{{3.5439544344537873`*^9, 3.5439545017996397`*^9}}], Cell[CellGroupData[{ Cell["\<\ For the Sine Rule function enter the information in the form: \ \>", "Subsubsection", CellChangeTimes->{{3.543954641471628*^9, 3.5439546639059114`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SineRule", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "]"}]], "Code", CellChangeTimes->{{3.543954679195786*^9, 3.5439547851438456`*^9}}], Cell[BoxData[ FormBox[ RowBox[{"SineRule", "(", RowBox[{"\<\"side a\"\>", ",", "\<\"angle A\"\>", ",", "\<\"side b\"\>", ",", "\<\"angle B\"\>"}], ")"}], TraditionalForm]], "Output", CellChangeTimes->{3.6073018472516346`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ For the Cosine Rule function enter the information in the form:\ \>", "Subsubsection", CellChangeTimes->{{3.543954794577385*^9, 3.543954804736966*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CosineRule", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "]"}]], "Code", CellChangeTimes->{{3.5439548096052446`*^9, 3.5439548341206474`*^9}}], Cell[BoxData[ FormBox[ RowBox[{"CosineRule", "(", RowBox[{"\<\"side a\"\>", ",", "\<\"side b\"\>", ",", "\<\"side c\"\>", ",", "\<\"angle C\"\>"}], ")"}], TraditionalForm]], "Output", CellChangeTimes->{3.6073018487007933`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Execute both functions below (\[ShiftKey]+\[EnterKey]) :\ \>", "Subsection", CellChangeTimes->{{3.5437988272515955`*^9, 3.5437988580232944`*^9}, 3.543798891521294*^9, {3.543954891046903*^9, 3.5439549214116397`*^9}, { 3.5439550464507914`*^9, 3.543955070087144*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"SineRule", "[", RowBox[{"a_", ",", "A_", ",", "b_", ",", "B_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", "===", "x"}], " ", "||", RowBox[{"b", "===", "x"}]}], ",", RowBox[{ RowBox[{"N", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"a", "/", RowBox[{"Sin", "[", "A", "]"}]}], "\[Equal]", RowBox[{"b", "/", RowBox[{"Sin", "[", "B", "]"}]}]}], ",", "x"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Quiet", "[", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"a", "/", RowBox[{"Sin", "[", "A", "]"}]}], "\[Equal]", RowBox[{"b", "/", RowBox[{"Sin", "[", "B", "]"}]}]}], ",", "x"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], "]"}], ",", "\[Degree]"}], "}"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.543783121635172*^9, 3.5437831799129553`*^9}, { 3.5437832292588224`*^9, 3.5437832317353177`*^9}, {3.5437843584950624`*^9, 3.543784445920062*^9}, {3.543784504359062*^9, 3.5437845118970623`*^9}, { 3.5437845490990624`*^9, 3.5437845593030624`*^9}, {3.543784598578298*^9, 3.543784675975037*^9}, {3.543784934741911*^9, 3.543784943486786*^9}, { 3.5437936991871667`*^9, 3.5437937189851665`*^9}, {3.5437939248311667`*^9, 3.5437939409731665`*^9}, {3.5437939904901667`*^9, 3.543794041793167*^9}, { 3.543794072899167*^9, 3.5437940777891665`*^9}, {3.543794119666167*^9, 3.5437941448861666`*^9}, {3.543794949337167*^9, 3.543794961444167*^9}, { 3.5437961004299808`*^9, 3.5437961073010416`*^9}, {3.5437962408580613`*^9, 3.543796274141717*^9}, {3.5439545479962816`*^9, 3.5439545963530474`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"CosineRule", "[", RowBox[{"a_", ",", "b_", ",", "c_", ",", "C_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"C", "===", "x"}], ",", RowBox[{"Quiet", "[", RowBox[{ RowBox[{ RowBox[{"N", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], "\[Equal]", RowBox[{ SuperscriptBox["a", "2"], "+", SuperscriptBox["b", "2"], "-", RowBox[{"(", RowBox[{"2", "a", " ", "b", " ", RowBox[{"Cos", "[", "C", " ", "]"}]}], ")"}]}]}], ",", "x"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], " ", RowBox[{"180", "/", "\[Pi]"}]}], "]"}], ",", RowBox[{ RowBox[{"N", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], "\[Equal]", RowBox[{ SuperscriptBox["a", "2"], "+", SuperscriptBox["b", "2"], "-", RowBox[{"(", RowBox[{"2", "a", " ", "b", " ", RowBox[{"Cos", "[", "C", " ", "]"}]}], ")"}]}]}], ",", "x"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], " ", "]"}]}]], "Input", CellChangeTimes->{{3.5437955547178583`*^9, 3.543795623543969*^9}, { 3.54379574535201*^9, 3.54379574870402*^9}, {3.5437958197306104`*^9, 3.543795855629136*^9}, {3.5437959098248167`*^9, 3.5437959679392457`*^9}, { 3.543796023816004*^9, 3.5437960669319344`*^9}, {3.5437961339680395`*^9, 3.5437961578742085`*^9}, {3.5437964701363983`*^9, 3.5437964713701515`*^9}, { 3.543798591710884*^9, 3.543798593271884*^9}, {3.543955158533202*^9, 3.543955178860365*^9}}], Cell[" ", "Text", Editable->False, Selectable->False, CellFrame->{{0, 0}, {0, 0.5}}, ShowCellBracket->False, CellMargins->{{0, 0}, {1, 1}}, CellElementSpacings->{"CellMinHeight"->1}, CellFrameMargins->0, CellFrameColor->RGBColor[0, 0, 1], CellSize->{Inherited, 3}] }, Open ]], Cell[CellGroupData[{ Cell["Execute the examples below:", "Subsection", CellChangeTimes->{{3.5437988800892944`*^9, 3.5437988940022945`*^9}, { 3.543955105809187*^9, 3.543955117307844*^9}, 3.6073024799157043`*^9}], Cell[BoxData[ RowBox[{"SineRule", "[", RowBox[{"24.5", ",", RowBox[{"80", "\[Degree]"}], ",", "x", ",", RowBox[{"40", "\[Degree]"}]}], "]"}]], "Input", CellChangeTimes->{{3.543783194214815*^9, 3.5437832223084326`*^9}, { 3.5437845744710627`*^9, 3.5437845775550623`*^9}, {3.5437847145078897`*^9, 3.5437847168511243`*^9}, {3.5437947293051667`*^9, 3.543794733444167*^9}, 3.607302479916705*^9}], Cell[BoxData[ RowBox[{"SineRule", "[", RowBox[{"24.5", ",", RowBox[{"80", "\[Degree]"}], ",", "16", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5437844573740625`*^9, 3.5437844733670626`*^9}, { 3.5437847271291523`*^9, 3.54378475541398*^9}, 3.6073024799187064`*^9}], Cell[BoxData[ RowBox[{"CosineRule", "[", RowBox[{"2000", ",", "1800", ",", "x", ",", RowBox[{"125", "\[Degree]"}]}], "]"}]], "Input", CellChangeTimes->{{3.543795626779909*^9, 3.543795629326436*^9}, { 3.54379566775548*^9, 3.5437956774292808`*^9}, {3.5437957238731303`*^9, 3.5437957336790104`*^9}, {3.543796565425337*^9, 3.5437966005156617`*^9}, 3.6073024799187064`*^9}], Cell[BoxData[ RowBox[{"CosineRule", "[", RowBox[{"2000", ",", "1800", ",", "3372", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.543795626779909*^9, 3.543795629326436*^9}, { 3.54379566775548*^9, 3.5437956774292808`*^9}, {3.5437957238731303`*^9, 3.5437957336790104`*^9}, {3.5437958679785414`*^9, 3.543795896851926*^9}, { 3.5437960499568434`*^9, 3.543796072799694*^9}, {3.5437961639250236`*^9, 3.543796165637537*^9}, 3.6073024799197073`*^9}], Cell[" ", "Text", Editable->False, Selectable->False, CellFrame->{{0, 0}, {0, 0.5}}, ShowCellBracket->False, CellMargins->{{0, 0}, {1, 1}}, CellElementSpacings->{"CellMinHeight"->1}, CellFrameMargins->0, CellFrameColor->RGBColor[0, 0, 1], CellSize->{Inherited, 3}, CellChangeTimes->{3.6073024799207077`*^9}] }, Open ]] }, Open ]] }, Open ]] }, ScreenStyleEnvironment->"Working", WindowSize->{946, 636}, WindowMargins->{{117, Automatic}, {Automatic, 1}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, ShowSelection->True, FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (November 20, 2012)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 103, 1, 90, "Title"], Cell[CellGroupData[{ Cell[707, 27, 96, 1, 79, "Section"], Cell[806, 30, 257, 5, 34, "Text"], Cell[CellGroupData[{ Cell[1088, 39, 3202, 78, 142, "Input"], Cell[4293, 119, 1781, 38, 267, "Output"] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell[6120, 163, 97, 1, 79, "Section"], Cell[6220, 166, 4861, 109, 253, "Input"], Cell[11084, 277, 904, 29, 119, "Text"], Cell[11991, 308, 1066, 35, 157, "Text"], Cell[13060, 345, 1518, 43, 159, "Text"], Cell[14581, 390, 443, 12, 30, "Text"], Cell[15027, 404, 353, 10, 70, "Code"], Cell[CellGroupData[{ Cell[15405, 418, 134, 2, 43, "Subsection"], Cell[15542, 422, 574, 10, 68, "Text"], Cell[16119, 434, 253, 5, 30, "Text"], Cell[16375, 441, 4170, 91, 245, "Input"], Cell[20548, 534, 300, 6, 30, "Text"], Cell[20851, 542, 373, 9, 30, "Text"], Cell[21227, 553, 315, 10, 8, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21591, 569, 95, 1, 79, "Section"], Cell[21689, 572, 257, 5, 34, "Text"], Cell[21949, 579, 1883, 47, 267, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[23869, 631, 97, 1, 79, "Section"], Cell[23969, 634, 5040, 111, 253, "Input"], Cell[29012, 747, 1280, 39, 119, "Text"], Cell[30295, 788, 1806, 49, 121, "Text"], Cell[32104, 839, 318, 8, 30, "Text"], Cell[32425, 849, 1884, 50, 127, "Text"], Cell[34312, 901, 334, 10, 30, "Text"], Cell[34649, 913, 408, 11, 54, "Code"], Cell[CellGroupData[{ Cell[35082, 928, 196, 6, 54, "Subsection"], Cell[CellGroupData[{ Cell[35303, 938, 104, 1, 34, "Subsubsection"], Cell[35410, 941, 332, 7, 30, "Text"], Cell[35745, 950, 204, 4, 31, "Input"], Cell[35952, 956, 207, 4, 30, "Text"], Cell[36162, 962, 153, 3, 31, "Input"], Cell[36318, 967, 229, 5, 30, "Text"], Cell[36550, 974, 157, 3, 31, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[36744, 982, 234, 7, 35, "Subsubsection"], Cell[36981, 991, 296, 6, 30, "Text"], Cell[37280, 999, 648, 14, 48, "Input"], Cell[37931, 1015, 230, 5, 30, "Text"], Cell[38164, 1022, 662, 14, 48, "Input"], Cell[38829, 1038, 162, 3, 30, "Text"], Cell[38994, 1043, 137, 2, 31, "Input"], Cell[39134, 1047, 120, 1, 30, "Text"], Cell[39257, 1050, 354, 10, 48, "Input"], Cell[39614, 1062, 235, 6, 30, "Text"], Cell[39852, 1070, 712, 15, 48, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[40601, 1090, 106, 1, 34, "Subsubsection"], Cell[40710, 1093, 267, 5, 30, "Text"], Cell[40980, 1100, 517, 13, 33, "Input"], Cell[41500, 1115, 416, 12, 33, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[41977, 1134, 147, 2, 80, "Section"], Cell[CellGroupData[{ Cell[42149, 1140, 193, 4, 43, "Subsection"], Cell[42345, 1146, 194, 4, 30, "Text"], Cell[42542, 1152, 132, 2, 30, "Text"], Cell[CellGroupData[{ Cell[42699, 1158, 44798, 977, 1772, "Input"], Cell[87500, 2137, 48673, 1063, 1434, "Output"] }, {2}]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[136231, 3207, 120, 1, 79, "Section"], Cell[136354, 3210, 254, 5, 49, "Text"], Cell[CellGroupData[{ Cell[136633, 3219, 163, 3, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[136821, 3226, 232, 5, 52, "Code"], Cell[137056, 3233, 238, 5, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[137343, 3244, 162, 3, 34, "Subsubsection"], Cell[CellGroupData[{ Cell[137530, 3251, 245, 5, 52, "Code"], Cell[137778, 3258, 239, 5, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[138066, 3269, 282, 5, 43, "Subsection"], Cell[138351, 3276, 2092, 48, 52, "Input"], Cell[140446, 3326, 1805, 47, 55, "Input"], Cell[142254, 3375, 273, 9, 5, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[142564, 3389, 193, 2, 43, "Subsection"], Cell[142760, 3393, 413, 8, 31, "Input"], Cell[143176, 3403, 281, 5, 31, "Input"], Cell[143460, 3410, 388, 7, 31, "Input"], Cell[143851, 3419, 462, 7, 31, "Input"], Cell[144316, 3428, 317, 10, 5, "Text"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)